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1. ABSTRACT 
RPOW/S/6 FORMATTER PROGRAM FORMATS THE DISK PACK AND PERFORMS 
A EURSORY CHECK OF ACE ae OGRAM ALLOWS THE 
OPERA OR T CIFY "ABORESS LIMITS TTERHS AND EITHER 16 BIT OR 
18 BIT FORMAT MODE. THE PROGRAM RIFIES. EACH TRACK WRITTEN 


AS WELL AS VERIFYING THE FORMAT 


2. REQUIREMENTS 


e.1 EQUIPMENT 
PDP-11 PROCESSOR 
8K MEMORY 
TELETYPE 
PROGRAM LOAD DEVICE 
KWl1l-L_OR KW11-P CLOCK 
RH11 OR RH70 WITH 1 - 8 FPOY, RPOS, RPO& DISK DRIVES 
2.@ PRELIMINARY PROGRAMS 
RPOY/S/6 OT SKL ES CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJG) 
PART 2 (MAINDEC-11-DZRJH) 
RPOW/S/6 one tat CONTROLLER TEST 
(MAINDEC-11-DZRJ1I) 
PART 3 (MAINDEC-11-DZRJJ) 


3. LOADING PROCEDURES 


AM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE 
MAY BE LOADED FROM THE APPROPRIATE °*XXDP’ MEDIA 
sg ot Uy LOADER. THE PROGRAM MAY NCT BE INCLUDED 


4.1 STARTING ADDRESSES 


THE PROGRAM IS STARTED FROM LOCATION 200(8) IF THE ADDRESS OF THE 
RH11 OR RH7O0 WILL NOT BE CHANGED 


DO VR EON DO VO LOADED YOM ECON DD TR EOE abe RUE toto 
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42 THE PROGRAM IS STARTED FROM LOCATION 204(8) IF THE ADDRESS 
43 THE RH11 OR RH70 IS TO BE CHANGED FROM THE PRELOADED VALUE 
2 (SEE SECTION 4.3) 
BE 4.2 OPERATION ACTION 


1. LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3). 
>. LOAD THE STARTING ADDRESS - 200(8) OR 204(8). 
3. SET THE SWITCHES AS REQUIRED AND PRESS ‘START’. 
IF THIS IS THE PROGRAM’S FIRST START, THE STATUS OF THE DRIVES 
ON THE cTED MASSBUS SUBSYSTEM WILL BE TYPED OUT. THIS TYPEOUT 
MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING SW<Oe2>. 
4. THE PROGRAM WILL THEN TYPE THE FOLLOWING MESSAGE: 
‘PROGRAM MODE (C OR F):’ 
ENTER THE APPROPRIATE CODE: °C’ FOR *CHECK’ OPERATION OR °F° 
FOR FORMAT & VERIFY’. IF A *CARRIAGE RETURN’ I 
RESPONSE TO THE REQUEST, THE PROGRAM WILL ASSUME ’ 
VERIFY’. 
THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE: 
‘OPERATE IN 22 SECTOR (16 BIT) MODE (Y OR ND’ 

NTER THE APPROPRIATE CHARACTER: ’Y’ FOR 16 BIT MODE OR ’N’ FOR 
rt Ef T NBDE. IF 3 ‘CARRIAGE RETURN’ IS ENTERED IN RESPONSE TO 
THIS REQUEST, THE PROGRAM WILL ASSUME 16 BIT MODE. 

&. THE PROGRAM WILL THEN ASK FOR A DRIVE: 
"DRIVE: ° 
ENTER THE ADDRESS OF THE ORI 
1S ne CAT EABLE, THE PROGRAM 
Le DRIVE ADDRESS REQUEST. 


7. AFTER THE OPERATOR HAS ECTED A DRIVE, THE PROGRAM WILL ASK 
FOR SS LIMITS FOR THE SELECTED : 


"ENTER ADDRESS LIMITS: ” 
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7. THE PROGRAM WILL THEN ASK FOR THE DATA PATTERN: 
*SELECT pare PATTERN 


(0) ZERO’ 

(1) ONES 

(2) WORST CASE:’ 
pl 3. THE CODE my REQUIRED PATTERN. "CARRIAGE RETURN’ OR 
*PERIOD’ ENTRIES WILL CAUSE THE PROGRAM TO USE THE *WORST CASE’ 
PATTERN. 
THE "WORST CASE’ PATTERN IS THE FOLLOWING OCTAL SEQUENCE REPEATED 
THROUGH THE DATA A OF THE SECTOR: 

165555 


8. THE PROGRAM WILL THEN TYPE: 
‘STARTING FORMAT ON DRIVE N’ 
OR 
’"STARTING CHECK ON DRIVE N’ 

9. THE OPERATOR CAN DETERMINE WHERE THE DRIVE IS DURING THE FORMAT 
OR CHECK OPERATION BY TYPING A "CONTROL C°. THE PROGRAM WILL 
TYPE THE FOLLOWING MESSAGE: 

"PRESENT ADORESS IS: CXXX TXX’ 
A °CON Cc’ TYPED WH I 3 THE PR S TYPING THE CURRENT 
ADDRESS t Me PROGRAM Ut ABOR FORNAT. ap CHECK) OPERATION 
om; once DRIVE’ REQUEST. 






10. a DOES ge cone T oP IFFERENT DRIVE WHEN THE FORMAT 
HE PROGRAM WILL NOT ALTER THE 
ADORE “at MIT CIF FIED AT Da raRt T OF THE PREVIOUS OPERATION. 
RATION IS TERMINATED By A ‘CONTROL C’ OR 


iF Pa ORI Ts LECTED, THE PROGRAM WILL RESET THE 
LIMITS TO THE VALUES APPROPRIATE FOR THE DRIVE TYPE. 
11. TO CHANGE EIT T SING MODE OR THE OPERATION MODE, THE 
PROGRAM Aut HER TRTED-FROR LOCATION 200(8) OR 204(8) AGAIN. 
4.3 RH11 - RH70 UNIBUS ADDRESS 
O5 ANG Tat Th THAT THE RHI 1 OR RH7O SSES START AT 
te AND T VECTOR ADDRE SS 254. THESE ADORE SSE S MAY 


IS 
PROGRAM IS STARTED 204(8). 
IF THE RHI 70 I$ ADDRESS, THE PROGRAM MUST 
BE STARTED FROM n204¢) U 
ADDRESS CHANGE ROUTI 
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4.4 


OTHER UNIBUS ADDRESSES 





LOC TAG CONTENTS FUNCTION 

1144 STK 177560 TTY KEYBOARD STATUS REGISTER 
1146 STK 177562 E FER REGISTER 
1150 TP 177564 TTY Bat ER TAT REGISTER 
11Se 177566 TTY NTER a3 REGISTER 
1176 KCSR 172540 KW11-P CONTROL REGISTE 

1200 KCSB 17254e W11-P COUNTER REGISTER 

1202 aFyet 104 | KW1i-P VECTOR Ss 

1206 KS 177546 W11-L CONTROL REGISTER 

1210 SLKV 100 sADDRESS OF KWil-L VECTOR 
SWITCH REGISTER SETTINGS 

SW<1S>=1...HALT ON ERROR 

eucia>=i:<:fNMreyy ERROR TYPEOUTS 

SW<10>=1... 

SW<O9>=1... ON RROR 

SW<O2>=1... *T DOI a Lt STATUS AFTER INITIAL START 
SW<Ol>= . - -LOOP ON K 

SW<00>=1...LOOP THE ON THE SELECTED DRIVE 

IF THE PROGRAM a ron +" eoutTc ESS ron aon. (I.E. AN 11734) 
HE WI I REGISTER IS 
NOT PRESENT MILL aS REGIST TERS a ne 


S ARE CONTROLLED THROUGH A KEYBOARD 


a A SWI aia , file LocaTED a “LOCATION 176 
D.. am "CONTROL G’. THE PROGRAM WILL 
N_ THE PROGRAM 


EACH eo u'B TTING em ENTERED, THE THE ENTIRE SWITCH REGISTER 
IMAGE T JENTERED : ache I ARE NOT REQUIRED., "RUBOUT’ AND 
‘ CONTROL BE USED TO CORRECT TYPING ERRORS 

DURING Meret ONTRY 


ON PROC SSORS att H TH HARDWARE  S SWITCH REGISTERS THE SOFTWARE’ SWITCH 
REGISTE FINDS ALL I6& SWITCHES IN THE 
‘UP’ POSIT TON oP OrTen REGISTER RREFERENCES WILL BE TO THE 
ROETWARE ” F REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
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16. 


i?. 


ERROR MESSAGES 


’RH11 INTERRUPT OCCURRED (RPAS=0) - AN INTERRUPT OCCURRED, BUT 
NOTHING ON THE MASSBUS IS INDICATING “AN ATTENTION. 


"UNEXPECTED ATTENTION OCCURRED’ - THE INDICATED DRIVE INTERRUPTED, 
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE. 


'MASSBUS PARITY ERROR (MCPE=1)" - A CONTROL BUS PARITY ERROR 
WAS DETECTED BY THE RH11 WHEN THE INDICATED REGISTER WAS READ. 


*MAS PARITY (PAR=1)’ - A CONTROL BUS PARITY ERROR 
occ WHEN THE INDICATED REGISTER WAS WRITTEN. 


st oe ro he Teichtin a1. § or rons ee 


*"RH11 DION’T RESPOND TO ADDRESSING’ - THE PROGRAM ACCESSED THE 
RH11 AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE. 


‘DRIVE OFFLINE’ - THE INDICATED DRIVE HAS GONE OFFLINE 
’PERSISTENT DRIVE UNSAF ’ - THE INDICATED DRIVE HAS SE COre 


ITION i CANNOT BE CLEARED BY ISSUING *DRIV 
ES HERES 
BSDRPEETRRE OESHUS PERAT.SEROR, 5 Ite SRROPMAA ELLOS Hr 


ERRORS OR OGRAM ATTEMPTED. i CLEAR A *PAR’ ERR 
DRIVE AND : MBARITY TY ERROR OCCURRE 


"SOFTWARE TIMEOUT’ - THE OPERATION FAILED TO COMPLETE WITHIN 
1 SECOND 
ROR’ - A NON-PERSISTENT UNSAFE ERROR OCCURRED 
DURING THE OPERATION. 
oie ERROR DURING WRITE’ - THE INDICATED NON-DATA 


ERROR WAS DETECTED DURING A FORMAT OPERATION. 


*CONTROLLER/DRIVE ERROR DURING WRITE CHECK’ - A NON-DATA ERROR 
OCCURRED DURING THE WRITE CHECK. 


*DATA wr ING WRITE CHECK’ - A DATA RELATED ERROR OCCURRED 
DURING A a 2 CHECK OPERATION. A DATA ER OP IS CON TED HC 
TO Ace’, One OF HE FOLLOWING ERRORS: ’*DCK’, ‘OPI’, "DTE*, ’HCRC’, 


"RETRIES NOT SUCESSFUL - SECTOR NOT wy ty - THE INDICATED 
SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR. 


Co oRTET. A} Sie RROR VERIFYING HEADERS’ - AN ERROR OCCURRED OURING 
THE VERIFICATION PASS AFTER FORMATTING. 


’*HCE’ ERROR VERIFYING HEADERS’ - A HEADER ERROR OCCURRED DURING 
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THE VERIFICATION PASS AFTER FORMATTING. 


18. ‘CYLINDER PEELS IN HEADER IS NOT CORRECT’ - THE CYLINDER ang 
FROM A HEADER READ DURING THE VERIFICATION PASS IS NOT CORRECT 


19. ’WRITE CHECK ERROR’ - THE RH11 REPORTED A WRITE CHECK ERROR AND 
NO DRIVE ERRORS WERE SET. 


MISCELLANEOUS 

FORMAT TIME 

IT TAKES APPROXIMATELY 8 MINUTES TO FORMAT AN ENTIRE RPOY/S coe 

AND SY 16 MINUTES TO FORMAT _AN RPOE PACK. 

ee ite ENTIRE PACK IS 4 MINUTES FOR RPO4/S’S AND 8 MINUTES 


HALTING THE PROGRAM 


Meg 1 Sterne vite NOT 
HERMINGTE. THE gan 


NE odie HE Olle SEO 


SURFACE VERIFICATION 


THE FORMATTER PROGRAM IS NO 

PACK VERIFICATION. IF THE p 
ACCEP PTABLE’. THIS MAY IN FAC Cc 

SECTORS WHICH ’PASSED’ MAY OR MAY N 


HE PROGRAM DURING A FORMAT OPERATION. 
CTOR I CtLy FORMATTED. TO 


C THE PROGRAM IS 
Uy" cri biden SEQUENCE RETURNS 


or 


TENDED TO BE USED TO PERFORM DISK 
S A SECTOR AS BEING ‘NOT 
tre SURFACE; HOWEVER, 


PROGRAM DESCRIPTION 


FORMAT OPERATION 


THE PROGRAM FORMATS TH THE PACK ONE TRACK AT A TIME BETWEEN THE LIMITS 
SPECIFIED BY THE ORIVE 

THE FORMAT PERAT ON CONSISTS OF A WRITE HEADER AND DATA COMMAND FOR 

ENT RE K_FOLL OWE WED By AQ WRITE E CHE CK HEADER AND DATA COMMAND . 

IF AN ERROR URING THE WRITE, AM WILL RETRY THE 
WRITE FORE ckuRs BORIN IF A DATA RELATED ERROF IS DETECTED 

OURING THE WRIT CHECK CA DATA ERROR } FINED AS ONE OF 

THE FOLLOWING E ; 'OCK’. OPI’. *DTE’, "HCRC’, *HCE’ 

OR ’FER’), THE SECTOR IN ERROR WILL REWRITTEN. THE PROGRAM WILL 
CHECK THE SECTOR TWICE; IF A DATA ERROR IS DETECTED IN THE SECTOR 
BURING EITHER OF THE WRITE CHECKS, THE PROGRAM WILL DECLARE 
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8.2 


8.3 


9. 


, 
; 
Zs 
; 


THE HE SECTOR as BEING. CEPTABLE’. FOLLOWING THIS SEQUENCE 
MAINDE RACK IS CHECKED F DATA ERRORS ARE ENCOUNTERED 
int ANY THE REMAINING SECTORS, EACH SECTOR WILL BE HANDLED 


DESCRIBED ABOVE 


IF A NON-DATA ETRY THE ERROR OCCURS DURING THE WRITE CHEC 
Oo fhe NOT Trac RETRY THE COMMAND FOR THE ENTIRE TRACK 


x 






vig NO a: NOTED THAT THE FORMATTER PROGRAM 
Ang T DIREC Crhin nae wet NG THE ort OF T 
ta THe IS _ NO Des 5 To 


Ace 
THE DISK PACK T 
IN pie HOWEVER THE" TOR CAN ASSUME THA 
CALL SUNACEEP TABLE: INDICATE BAD 
UNFORTUNATELY, SECTORS WHICH ’PASS’ CANNOT BE T 
DURING THE FORMAT OPERATION, THE PROGRAM FILLS THE DATA FIELD 
WITH THE NE OTTERN SELECTED BY Br THE OPERATOR. THE KEYWORDS IN T 
HEADER ARE ALWAYS 


CHECK OPERATION 





THE CHECK es on IS IDENTICAL TO THE WRITE CHECK PORTION OF 
THE FORMAT OP ON OPERATION DESCRIBED IN SECTION 8.1 EXCEPT 
THAT THE PROGRAM WILL NOT RE-WRITE ERROR SECTORS. 


POSITIONER VERIFICATION 
AFTER THE PROGRAM COMPL 
COs. conan I On Tre 8 
FROM ya OR y 
rete ROM THE 


TES THE FORMAT OPERATION 
0 THE vo R 
ARTING TRAC 
OMPARE 


4k 


NARD, MASS. 01754 


| APROGRAN BY ©. HESS 


i STHIS PROGRAM WAS ASSEMBLED USING THE e ah MAINCEC SYSMAC 
; PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 
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-SBTTL OPERATIONAL SWITCH SETTINGS 


ee ee 


SWITCH USE 
1S HALT ON ERRO 
13 INHIBIT Aas TYPEOQUTS 
3 se ON ERROR 
. pat a a ayeten STATUS AFTER INITIAL START 
0 oP THE OGRAM Of} THE SELECTED DRIVE 


.SSTTL TRAP CATCHER 


A UT, RERLLOUE ERY tuaeZ SOUTER? MALT 


; #LOCATION, it eieen 
DISPREG: 


SWREG: 


NS 0 TO CATCH IMPROPERLY LOADED VECTORS 


+ SOFTWARE DISPLAY REGISTER 


“ORD 0 
WORD O ; SOFTWARE SWITCH REGISTER 


-SBTTL ACT11 HOOKS 


: HOOK 


coe getters an 1 2 tee neteantaentate nen take mce, ieee: 
S REQUIRED BY ACTI1 
S$SVPC=. 


;SAVE PC 
;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


5 s2)SET LOC.S2 TO 20000 
;; RESTORE PC 


.=46 

SENDAD 

.=Se 

. WORD 20000 
. =$SVPC 


.SBTTL STARTING ADDRESS = 200 
IMP BEGIN1 ;NORMAL STARTING ADDRESS 
.SBTTL STARTING ADDRESS TO CHANGE THE RH11 ADDRESS = 204 
IMP BEGIN -CHANGE THE RH11 ADDRESS 
.SBTTL BASIC DEFINITIONS 
gINIT TIAL ADDRESS OF THE STACK POINTER #** 1100 #«« 
“EQUIV EMT, ERROR -:BASIC DEFINITION OF ERROR CALL 
-EGUIV IOT, SCOPE ::BASIC DEFINITION OF SCOPE CALL 
; #MISCELLANEOUS DEFINITIONS 
HT= 11 CODE FOR HORIZONTAL TAB 
LF= 12 CODE FOR LINE FEED 
CR= 1S *:CODE FOR CARRIAGE RETURN 
CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ::PROCESSOR STATUS WORD 
EQUIV PS Psi 
STKLMT= 17777 ;;STACK LIMIT REGISTER 


SES 00:0 


ESRIEB. 


V-OODUTNE | 


He RRR RRR 


0, RPOY/ 
Pri 
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BASIC NEF INI SES 9011 

bees 177778 | RERORAE Bi re RRUPT Reeve TER REGISTER 

ODISP= 177570 8 oH vReGTS oFER 
, *GENERAL PURPOSE ener IT 

Ro= %0 eet GISTER 

Ri= %1 GISTER 

Re= %2 G YER 

R3= %3 GISTER 

RY= %4 G STER 

RS= 45 GISTER 

R&= % GISTER 

R7= “47 GISTER 

SP= %& a nO NTER 

PC= 47 : : PROGRAM OUNTER 
-#PRIORITY LEVEL sorpareen 

PRO= 0 i PRIORITY LEVEL O 

PRi= 40 PRIORITY LEVEL 1 

PRe= 10 5 ERT Rt TY LeveL S 

PR3= 14 PRIORITY LEVEL 

PRi= 200 > PRIORITY LEVEL 4 

PRS S30 : PRIORITY LEVEL P 

PRE= > PRIORITY LEVEL & 

PR7= 340 -:PRIORITY LEVEL 7 


#°SWITCH REGISTER” SWITCH DEFINITIONS 


WiS= 

gui5= tel 
SWi3= 20000 
SWie= l 

SWli= 4000 
Swid= 2000 
SWOS= 1000 
SWOS= 400 
SWO7= 200 
SWwOb= 10 

SWOS= 40 

SWO4= 20 

SWO3= 10 

- 2= uy 

sHeuIv SuO9. SWS 
eeuty S08, Sus 
“EQUIV SWO7, SW7 
-EQUIV , SWE 
EQUIV , Se 
- EQUIV SWO1, S61 
-EGUIV SwOO, SWO 
-*¥DATA BIT DEFINITIONS (BITOO TC BITIS) 
BIT1S= 100000 
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BASIC DEFINITIONS 


BIT14= 40000 
Bt tise 20000 
BITie= 10000 
ITli= %00 
T1QGe= 
TOS= 1 
TOS= 4 
TO7= 
IT06= i100 
BITOS= 40 
TO4= 2 
TOS= 10 
toils 2 
= 
100 1 
-EQUIV BITOS,BITS 
7 Vv TOs, Tg 
' Vv TO7, BIT 
. Vv TOb, BITE 
-EQUIV BITOY,BITY 
- EQUIV TOS BITS 
. oT Vv Te, iT 
. Vv Or Tl 
-EQUIV I1TcO,6ITO 
"CPU" AP 
y 


VECTOR AODRESSE 


faavec= 10 i AgSERVED “ang Pee aE IN SF RUCTIONS 


TBITVEC=14 TRACE 


peivers Ai Belirwcen, Hips oat 
PURVEC= 24 


neste ##ERRORS4# 


© 
vv 






: } POWE 
= ee 
C e° 
TKVEC= €0 SITY K KEYBOARD VE 
TPVEC= 4 -TTY PRINTER VECTOR 
PIROVEC=240 tt PROGRAM INTERRUPT REQUEST VECTOR 
ss RSE EAERKERELA REESE EERERE LEK RRLARSAARRRERAAHLEK LARA RLAAE LA ELLE 


-SBTTL RH11 REGISTERS 
ss Se A aE aE Ae aE OE Sb de AE ae AE aE ie He He Hee HE HE HH HE aE aE Ea Ha a EE EE 


;CONTROL AND STATUS REGISTER 1 (RPCS1) 


1E= | 90 A RRUPT ENABLE (BIT #6) 
as ie ores Bis spores BIT (EIT #8 
PSEL= te ttt CRP ECT (BIT #10) 

MCPE= 20000 ;MA : Pp IT RROR (BIT #13) 
TRE= 46000 t TRAN ERROR (BIT #14) 

.SC= 100000 ‘SPECIAL CONDITION (BIT #15) 


SEG O0le 
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CZ2RJBB8.P11 O4-NOV-77 12:54 RH11 REGISTERS SEG 0013 
647 sWORD COUNT REGISTER (RPWC) 
bye : (EACH oy IS CALLED BY BIT NUMBER) 
&S0 : BUS S GISTER (RPBA) 
B51  ( Bch bit is FALLE BY SIT NUMBER) 
te sCONTROL AND STATUS REGISTER 2 (RPCS2) 
655 000001 USi= 1 ; UN 
656 o00000e USe= : UN 
6S7 US4= 4 ; 
009010 BAI= 10 : BL 

659 20 PAT= 20 . 

4 CLR= 40 ;CL 
be 000200 = B00 OUTPUT 

is Ss . 
S63 eietaitee MPE= 40 > MAS 
664 001000 MXP = 1000 “MI 
665 002000 PGE= 200 : 
666 004000 NEM= 400 : NON EX 
667 010009 NED= 10000 “NON EX 
668 020000 = 00 4 UN 
669 040000 WCE= 40000 WR 
£70 100000 OLT= l -DA 
672 sDATA BUFFER REGISTER (RPDB) 
673 * (EACH BIT IS CALLED BY BIT NUMBER) 
675 
628 cS E-Ab AE SEE AE J A A a a a a A a a a a a A a a a a a a a a Hee 
eS _SBTTL RPO4/S/6 REGISTERS 
pa 86 SELLERS EEEEE REE EERE SERA R REAR ERE RAR ARAERAERA RE RLAL ERA LARELELE 
68e ;CONTROL AND STATUS 1 REGISTER. (#00) 
&BY 090001 GO= 1 :GO BIT (BIT #0) 
68S 00002 Fiz 2 * FUNCTION CODE BIT #1 
£86 009004 Fo= 4 ‘FUNCTION CODE BIT #2 
687 000010 F3= 10 ‘FUNCTION CODE BIT #3 
688 000020 F4= 20 : TION C BIT #4 
689 000040 FS= 40 i FUNCTION CO T #S 
630 9040900 VAS 4000 ‘DEVICE AVAILABLE (BIT #11) 
63 sDRIVE STATUS REGISTER (RPOS1) (#01) 
£94 -DFS= 1 DRIVE FORWARD s’/s (BIT #0) 
695 00 OFF20= 2 s DRI "20" SEC. (BIT #1) 
59é 000004 OIGB= 4 : OR BAND (BIT #2) 
697 000010 GRV= 10 : GO RT Ny 
632 000020 OL64= 20 fiche LESS THAN 64 (BIT #4) 
£99 00004 OE l= 40 : DIFF 1 (BIT #5) 
700 6000100 VV= 100 : VOLUME NCE CBTT 46) 
75! 00026 ORY= 200 ‘ORIVE READY (BIT #7) 
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: . ( ‘ot ” 
iets : SEC BI NSFERRED (BIT #10) 
WRL= S WRITE L 8 ait) 
MOL= 1 + (B #12) 
Far: $0000 ic aT a ee 
ATA= 100000 “ATT 1 On ACTIVE (BIT #15) 
sERROR REGISTER #01 (RPER!) (#02) 
ILF= 1 #0) 
ILR= 2 #1) 
RMR= a2 REFUSED ‘(BIT se) 
FER= 20 
feH= = «100 
HCE= 200 BIT #7) 
HCRC= 400 #8) 
AOE = 1000 (BIT #9) 
IRE= 2000 (BIT #i0) 
BHE=  1pooC r bi2) 
OPI= 20000 BIT #13) 
UNS= 40000 
OCK= 100000 15) 
:MAINTAINABILITY REGISTER (RPMR) 
OMD= #0) 
MCLK= 5 (BIT #1) 
MINX= A (BIT #2) 
MSTCK= 10 CLOCK (BIT #3) 
= 20 (BIT #4) 
= 40 cGTT eS) 
OTSY= 200 DETECTED (BIT #7) 
-ATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) 
ATO= i - sDEVICE O (BIT #0) 
ATi= FS ‘ DEV cE 1 (BIT #1) 
ate= “4 YVEVICE 2 (BIT &2) 
AT3= 10 . EV ce 3 (BIT #3) 
ATY4= 20 -DEVICE 4 (BIT #4) 
ATS= 40 -DEVICE S (BIT #5) 
ATb= 100 “DEVICE & (BIT #6) 
AT7= 200 ‘DEVICE 7 (BIT #7) 


;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


;DRIVE TYPE REGISTER (RPDT) (#06) 


OTOoo= 1 ;DRIVE TYPE NUMBER BIT 1 
OTci= e ;ORIVE TYPE NUMBER BIT e 
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SEG 9015 
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sLOOK-AHEAD REGISTER (RPLA) (#07> 
;RPOY ERROR REGISTER #2 (RPERE) (810) 


a ERROR REGISTER #02 (RPER2) (810) 
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aeetoay © eee aiaieteee aes si 
fo Ee aoe Eee Ee 
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TOF= 40 s TRANSIT 
TUF = a : TRANSIT 
WRU= s00 : 3 5 
MHS= 1000 sMUTLTIPL 

= 2000 ;NO 

= 4000 3 OES 

= . 0 


OF eS= 4 : OFF 
OF SO= : OFFSET 
or seos 10 3 Teer 
= = 
te 35 : OF FSET 
OF800= 40 ; OFFSET 
OFREV= 200 : OFFSET 
HCI= 2000 : HEADER 
ECI= 4000 - ERROR 
FMT22= 10000 -FORMAT BIT 
; DESIRED CYLINDER SS (RPCA) (#12) 
* (EACH BIT IS CALLED BY BIT NUMBER 
sCURRENT CYLINDER ADDRESS (RPCC) (#13) 
- (EACH BIT IS CALLED BY BIT NUMBER) 


-SERIAL NUMBER REGISTER (RPSN) (814) 
(EACH IS CALLED BY BIT NUMBER) 


;RPOY ERROR REGISTER #03 (RPER3) (815) 


= 1 ;PACK SPEED UNSAF 
VUF = 2 > VELOCITY UNSAFE 
UWR= 10 *ANY UNSAF 
ACL= 40 -AC LOW ( 
DCL= 100d ;DC LOW ¢ 
SKI= 40000 »SEEK INC 
OCYL= 100000 -OFF CYL 


DCU= 1 ;DC 
ss + OE TYE AND 
ACL= 40 AC LOW ( 
DCL= 100 -DC Ou ( 
= : OPERATOR 
Ski= 40000 SSEEK INC 
ocYL= 1 tOFF CYLI 
;ECC POSITION REGISTER (RPECI) (916) 
(EACH BIT IS CALLED BY BIT NUMBER) 
ECC PATTERN REGISTER (RPEC2) (#17) 
‘TEACH BIT IS CALLED BY BIT NUMBER) 


—--—s ee ar-O 
“Oo Wtwnr~~ 


a 
AD/WRITE (BIT #3) 


SEG OO16 
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CZRJBB. O4-NOV-77 12:5 0475/6 REGISTERS SEG 0017 
- Fa 
eck ss EERE AAERELEEELELELEEEE ERAS ALARAE ELLA LAAA SALLE ALLELE ALLL A EES 
873 .SBTTL RPO4/S/6 DRIVER COMMANDS 
aoe 5 5 REESE RE SEES EE LEASE EERE A LEELA ERLARRR ARLES A REARS ELLE SETS 
é 
877 000101 RNOP = 101 ;NO OPERATION 
87 000103 UNLOAD = 103 ; UNLOAD 
8°s3 000105 SEEK = 105 ; SEEK 
880 000107 RECA’. = 107 ae eae 
8S} O000i11 ORVCLR = lil ;ORIVE CLEAR 
88e 000113 Lo. © 113 ; RELEASE 
883 000115 OFFSET = 115 ; SET 
Be4 000117 RTC = 117 3 Re Tun TO CENTER LINE 
ses 000iel READIN = lel ; IN PRESET 
886 000123 ACK = 123 ;PACK ACKNOWLEDGE 
387 000131 SEARCH = 131 ; SEARCH 
88e 000141 GETREG = 141 ;GET REGISTERS ' 
8s93 000143 SETFMT = 143 -SET FORMAT (& ECI OR HCI) 
896 000145 SELDRV = 14S ;SELECT DRIVE 
891 0001S1 WCKD = 151 ;WRITE CHECK DATA 
89e 000153 WCKHD_ = 153 -WRITE CHECK HEADER 8 DATA 
833 000161 WRTDAT = 161 ;WRITE DATA 
634 060162 WRTHO = 163 ;WRITE HEADER & DATA 
ess 000i71 RDDAT = 171 ;READ DATA 
Bae 080173 RDHD = 173 ;READ HEADER 8 DATA 
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;ADDRESS OF ’fC’ RETURN 
; CHANGE RH11 ADDRESS’ FLAG 
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-NOV-77 12:54 COMMON TAGS 
000000 BEGCYL: .WORD 0 

2 ENDTRK: .WORD 18. 
“Ud WORD 0 
TTrige HO o 
PATSEL: WORD 0 
TA: -WORDB OQ 
PATB: . WORD 0 
CYLEK: . WORD 0 
RY: .WORD 0 
SAVSEC: .WORD 0 
SAVWC: .WORD 0 
WC: . WORD 0 
: . WORD 0 
DERR: .WORD 0 
SEC20 . 0 
000000 MAXSEC: .WORD 0 
ooocoo DS.CYL: .WORD 0 
000000 DS.TRK: .WORD 0 
000000 DORIVE: .WORD 0 
000000 ATTN: -WORDB O 
000000 CNTLC: .WORD 0 
000000 CHGADR: .WORD 0 
ooccoo RP.REG: .WORD 0 
000000 . WORD 0 
000000 . WORD 0 
000000 -WORD OQ 
000000 gi g 
BOOODD WORD ' 
000000 . WORD 0 
000000 . WORD 0 
000000 . WORD 0 
000000 . WORD 0 
COOC00 . WORD 0 
000000 WORD 0 
0OG000 WORD 0 
noes WORD 0 
00 . WORD 0 
000000 -.WORDB O 
000000 WORD 0 
000000 WORD 0 


-RPCS) 
RPWC 


;DATA/PARAMETER BLOCK - USED FOR ALL DRIVE OPERATION 


FMTOPB: .BYTE QO 


>DRIVE NUMBER 
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AC nO .BYT -OFFSET VALUE OR FMT22,ECI, AND HCI 
101 01355 r 8 58 
101 90 1 D0C _BYT . 
1013 O01 OC - BYTE : -PSEL AND A17 AND ALS 
4 360 , : 
ibe 501 600990 “WORD O IBUFFER ADDRESS 
1916 001364 “BYTE O "SECT ss 
Big SBISEE poobte Emp Ee ThObe Soa 
| “WOR RP. REG : POINTER 
1043 Polsee §=BbAabo WoRR Og Hig chen eta 
i021 : = ls: 
-BIT 2 
1555 ‘BIT 14-10 AND BIT 06-03 
1024 ‘INDICATE TYPE OF ERROR 
1025 
1026 
1027 sPARAMETER POINTER TABLE 
10e9 001374 O01426 001224 TABLE: PARI1,O,BEGCYL 
1030 001402 001441 O000e2e 001230 PAR?’ 18. , BEGTRK 
1031 O014i6 001454 66 O0le2e2 PAR3,0,ENDCYL 
l 001416 O0146S O000ee O0lect PAR; 18. ,ENDTRK,O 
1033 001424 
1035 sASCII MESSAGES FOR ADDRESS PARAMETERS 
1037 001426 052123 051101 o20124 PARI: .ASCIZ @START CYL 32 
1939 DOL 733 ouose4 oseiee PAR2: .ASCIZ @START TRK a 
ie 
1Bat 001454 3718 arta peo 93 PAR3: .ASCIZ @JEND CYL 9’ 
1042 001462 0114 560 
i043 OO1465 10S 042116 OS2040 PARY: .ASCIZ @JEND TRK a 
ious 001472 o4sSe2 ooo040 
oy ;SECTOR BUFFER ADDRESS TABLE 
i : OF SECTOR O 
1S3 Ole Gee 139 PORTE: -HORR BEPaccoo us.» fOpRRESS OF SEETOR | 
1050 00150¢ 027150 “WORD p+<5e0. #2.) ‘ADDRESS OF SECTOR 2 
. SO4 e oO + 
ibes Bo 1806 631190 WORD BUFPS< “4. > i ADDRESS be SEE TOR 4 
1053 001510 032200 WORD P+<500."5.> ; SECTOR 5S 
1054 001512 033¢ WORD P+< . #6 > 3 SECTOR g 
10SS 001514 Wd P+< #7.) ¢ CTOR 
1056 001516 0352 WORD BUFP+<520. #8 ‘ADDRESS OF SECTOR 2 
es , © 
ibee 301882 25 BUF bs < Sto > i ARBRE ae SF Sekt io 
1059 O01 of WORD BUFP+< 520. #11 ‘ADDRESS OF SECTOR 11 
i . . 
tBe? 3018535 Bd 3550 * BUFPS<R6Q-E1§-> :BRRREae QF SEETOR 1S 
ide? 001532 043310 WORD BUFP+<520.#14.> :;ADDRESS OF SECTOR 14 
1062 001534 044320 " WORD BUFP+<520. #1} > ; ADDRESS OF SECTOR 15 
{BES poieae Due sae WORD sep sces0. wi? ; ADDRESS OF SEE TOR 5 
1066 OG1E¥2 O47350 "WORD S8UFP+<520.#18.» :ADDRESS OF SECTOR 18 
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BUF Ds <250. a0: > 
. WORD BUFP+<S2e0.#21.> ; 


. WORD 
- WORD 
;REMASINING WORD COUNT TABLE 
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adgy orien 
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OF RAREST REBSLE BAIZRAA 
or Or Ox TO = {Pn “4 
ti ™ faa ™ 
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Pita A AS IRSA ea ere 


QOoO00000 
dp peepee pa pep ppp errr 


88888888888888sesesseasa 
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1098 _SBTTL ERROR POINTER TABLE 

1106 :#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
1191 xT NFORMATION IS OBTAINED BY USING THE INDEX NUMBER 

1102 :*#LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
1103 : #NOTEL: IF SITEMB 1S 0 HE ONLY PERTINENT DATA IS (SE j. 
1105 : #NOTEe: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
1106 5% EM ;:;POINTS TO THE ERROR MESSAGE 

1107 : a OH ::POINTS TO THE DATA HEADE 

1108 : OT ::POINTS TO THE DATA 

1199 * OF ::POINTS TO THE DATA FORMAT 

111° 

llle o0i626 SERRTB: 

1113 -ERROR 1 

1115S OC1626 O22112 EMI -RH11 INTERRUPT OCCURRED (RPAS=0) 
1116 001630 623231 OH1 

1i17 O01632e Oe450e OT1 

1118 001634 0625014 OF 1 

1120 sERROR 2 

lle2 001636 022152 Me ; UNEXPECTED ATTENTION OCCURRED 
ll23 OO01690 023236 He 

1124 601642 Oe4594 OTe 

1186 901644 Oesbe0 OFe 

1127 sERROR 2 

1129 O01646 O22211 EM3 ;MASSBUS PARITY ERROR (MCPE=1) 
1130 O01650 023313 DH3 

1131 001652 24520 0T3 

1132 001654 24 OF3 

1133 

1134 sERROR 4 

1136 OO16S&6 022247 EMY :MASSBUS PARITY ERROR (PAR=1) 

1137 O01660 023341 DH4 

1138 O0l662e Oe4S26 OT4Y 

1139 901664 025030 OFY 

1142 sERROR S 

1143 OOl166E O22304 EMS ;ADDRESS PLUG CHANGE BIT SET 

1144 001670 Se32e36 OH2 

1145 001672 OGe4S04 OTe 

1146 001674 Oes020 OF 2 

ties ;ERROR 6 

1150 001676 o22340 EME ;RH11 DIDN’T RESPOND TO ADDRESSING 
1i51 601700 O23400 OHE 

1152 9801702 O24S36 OTE 

11563 001704 d25014 
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i” BeNOvIT? teres ERROR POINTER TABLE SEO 0022 
-ERROR 7 
0017 90 0 ; UNUSED 
Bi ; 
00i714 00000 0 
sERROR 10 
001716 o22402 EM10 :DRIVE OFFLINE 
001720 023413 DHIO 
0017 4S40 TiO 
001724 O25034 DF IO 
SERROR 11 
001726 922420 EMLI -PERSISTENT DRIVE UNSAFE ERROR 
001730 023413 OHIO 
001732 O24S40 DT10 
001734 025034 FIO 
sERROR l2 
17 EmM12 | UNCORRECTABLE MASSBUS PARITY ERROR 
Bins eee at 
001744 925034 OF 10 
sERROR 13 
OG1746 022521 EM13 ; SOFTWARE TIMEOUT 
O9175C O23413 DHIO 
001752 ge4s4D OTIO 
001764 34 OF 10 
-ERROR 14 
N01756 o2254e2 EM14 ;DRIVE UNSAFE ERROR 
001760 O23413 OHIO 
001762 O245 OTID 
001764 025034 OF 10 
;ERROR 15 
001766 O22565 EMS ; CONTROLLER/DRIVE ERROR DURING WRITE 
001770 9234123 OHIO 
001772 O24s40 OTIO 
001774 34 OF10 
sERROR 16 


; CONTROLLER“DRIVE ERROR DURING WRITE CHECK 
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177777 001302 


07-NOV-77 


sERROR 17 


RESET 
SBE ‘ihe The Co 


10:07 PAGE eS 


ERROR POINTER TABLE 


;RETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE 


;DATA ERROR DURING WRITE CHECK 


;CONTROLLER/DRIVE ERROR VERIFYING HEADERS 


;"HCE’ ERROR VERIFYING HEADERS 


;CYLINODER FIELD IN HEADER IS NOT CORRECT 


;WRITE CHECK ERROR 


= 5 ie Se 0 Se 0k 0b eae aE ab ak ee ea ea a a a a a aa a aa aa aa a aaa a 
-S6TTL MAIN 
= Mi ai a ae Ae aE ae ae aE a a a a a a aa aaa a a aa a aaa aa 
BEGIN: MOV 


BECT Ne: R 


PROGRAM 


#~1, CHGADR 
Ne 
CHGADR 
nae THE COMMON 


Taés 
N TAGS ($CMTAG) AREA 
mOScnt AG, RE ::;FIRST LOCATION TO BE CLEARED 


Stan? CHAN noche BUS ADDRESS’ INDICATOR 
An THE °C "CHANGE RH11 ADDRESS’ INDICATOR 
‘EE AR T 


SEG 0024 


M0e 
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CZRJBB8.P11 O4-NOV-77 12:54 INITIALIZE THE COMMON TAGS SEG 025 
1 002110 ocoS026 CLR (R6)+ :;CLEAR MEMORY LOCATION 
i 00211 OB1378 001140 MP oé R& ;;DONE? 
l BBs} 4360 001100 a afer THE rari POINTER 
1270 ss INITIAL ze A FEI Li 
i 7 o02124 012737 006636 900030 v S#EMTVEC iteven"s VECTOR FOR ERROR ROUTINE 
a.8i8 
1878 00813 018737 ett 500835 ny Rab 'SaTnaeve “* VECTOR FOR TRAP CALLS 
se 000 
1S5e Bosiss l CL a THE APE ON ERROR ADDRESS 
is73 be160 ie ,_ eee F SWITCH RE i ALLO Pn F sr EF is 
1538 : Bota 70 A ek TUR FOR A ie SHITCH Rect ER. 
Hes BOISE 197 ponoos BY. ANESCamiet” f/SPYE BPE TY 
i : peste 13737 1775 Bor i4e NOV ISPLAY ser rs) 4 I ay ate ora 
13e5 poses pes ? 176716 CMP : sep -: TRY 10" REFERER e Siar arn 
i i0le BNE 1 ORANCH I TIMEOUT TRAP OCCURRED 
{See BR 6 SOR RNCH "te Ng LAMEOUT 7 3 
1 S86 paSsse 12716 002234 64S: MOV gees. (SP) 5 T UP OR TRAP i 
1288 902232 o00002 RTI 
1289 o0ee34 bie? 900176 001140 65S: MOV & G, SHR :;POINT TO SOFTWARE SWR 
1290 2 9127 50 600174 001142 MOV eDI G. DISPLAY 
1231 002250 012637 66S: MOV (SP)+,a8ERRVEC ;;RESTORE ERROR VECTOR 
i535 002254 o0000s RESET CLEAR WORLD 
1294 002256 012737 oCODe4O o000036 MOV #PRS, J#TRAPVEC+2 ;CHANGE TRAP PRIORITY BACK TO S 
1295 O02264 012737 000240 000032 MOV @PRS OSEMTVEC+E ; ; CHANG GE EMT PRIORITY BACK TO 5 
1e96 OOee7e 0127 002976 001300 MOV #BEGIN1, CNTLC "CONTROL C’ ADDRESS 


JB P11 


4 8 


ristetatetetgtetatetoictnte iris ist =e 
Bases 6 Beekieeeccces fe Renee ~ 


P= P= pe b= be bee pe Pe fe ee Bw Pe be ne bs Bs Be Be Be Be be Pe Be 
WWWWWWWW 


Rees 


BRRES 


2 


Set 


Bs he ee be ae ae ae ae ae ee ae Be be ae ae ee be Be ee ee ee be be ee 


ae tet SS RP RE CI a 


E 


Ui 


RISER TRESSRR & ROnw eS 


= 
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ERRSs 


au 


/S/6 FMTR 
B4eNov-77 


o0S2e7 
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O12737 


005004 
104401 
104401 
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lée:S4 
177777 
Bo0e! 1 
025205 
010204 
oo0c4e 
0601140 


000001 
177777 
4 
1] 
001174 


020703 
Oieled 


012130 


020553 
020574 
020532 


000041 


012206 


176476 
177776 


NOe 
IRITIALIGE THE COMMON TAGS 








4 

: TITLE’ SAGE 

: LF RPHa ETE ? 

: RATOR TO REMOVE 'XxxDP’ 

:T KEYBOARD INTERRUPT 
stil G Is ER 


NG UNDER XXOP/ACT” 
.n 70H REG SELECTED? 
-:GET -SWR SETTINGS 
;:SET AUTO-MODE INDICATOR 

; CHECK FOR FIRST START 

Bred WE. aOORESS 
jf VECTOR ADDRESS 


;DISPLAY DRIVE foaplgal SET UP THE OTHER UNITS THE 


re ig 
ITLE 
es 3 ail, 4] 
BEE , LOADRY 
1$: pce STK 
. Te: 3 VALUE FOR Se EN TWARE 
3 , #SWREG 
68% 
GT 
BR 68S 
7s: MOVB #1, SAUTOB 
oo SET VEC 
ONE OB 
MOV , RPADR 
MOV SRPVEC, RPVEC 
: PROGRAM W 
SETVEC: JSR T.CLK 
MOV Ss PINT 
INC ei 
BF? 4102, SMR 
BNE 10$ 
11S: MOV aPR7, PS 
CLR 
TYPE TSCRLE 
a TYPE , SYSTAT 
MOV RY, -(SP) 
TYPOS 
BYTE 
TYP LINYSP 
TST SRVSTACRY) 
BMI 4g 
BNE | 
TSTB ORVTYP(RY) 
BEQStiéié’S 
BPL 3$ 
TYPE NOTRP 
2s: TYPE NOTPRS 
3S: TYPE UNTOFF 
BR 6 


HINT T 
a a RE RP 475/6_DRIVER 
ean zens FLAG 


1 THE DRIVE STATUS TABLE ” 


1s PR TORITY TO 7 
DRIVE ABLE PCINTER 


SY STATUS HEADING 


Oe 1B NUMBE eae 
BER TAL ASCII 


8 se CE ADING ZEROS 


Drive .S STATUS 


F OFFL Le EAT OR NONEXISTENT 
NONEXT 


“rs th 


Be OeOaaa wee Rs 


RPO4Y/S/6 
VE 


SEG 0026 





IYI ere rrerrcrrerrerrnner re ree nstanthshahenanmhohetehetee ote eot et eeke 2 
RORREGROSSE LAR LOM SORTER TOR RITA son oe RTE ROR UROD B 


rs 


Hes ost 


oS 
ie 


Br One 
~ 
= z 
= in 
bo ba bo Cee 
ee 


t 

~ 

x 
ee 

bt haw Bs 


we 


Rr Buco 
gue NpEE 
be (lb be be 


ee 
ee 
tN 
Oroor- 
&-b-r- (re 


020611 
4 


1 
1 


sh 


001166 
021174 
021153 


021207 
177777 


O2ice7 
000131 
000116 


001166 
021300 


MACY11 30( 1046) 
77 12:54 


312130 


O0eb2e2 
012130 
002622 


001220 


whee. ae Tt 


BNE YE 
BT TB ri O5 rvpcmyj ORES 5. ie mepen: 


iPRINT DRIVE. TYPE 


OF RPOY MESSAGE 





Beis Slt Ee cnce 


NC oor NUMBER’TABLE POINTER 


NOT 





- INI 
-BR IF 
> CR-LF 


S TO BE RUN IN. 
OR *CHECK FORMAT’ 


TO *CHECK FORMAT’ 
+ Ae 


ae 
Ba 
i 


Bkea ob? (DEFAULT ) 


i ana 
s 





‘ CK’? 

: YES 

: T’ ? 

:NO. CORREC 

; CT ENTRY 

: AGAIN 

: Rest OF *CHECK’ 
; STARTING ADDRESS 


aa 
a 
iM 
2 


ST OF *FORMAT’ 
;SET MODE TO ’FORMAT & VERIFY’ 


FORMAT IS TO BE IN 20 OR @2 SECTOR MODE 


; TYPE FORMAT MODE REQUEST 


at on 0: 
T VALUE ood ioe MARE SHTTCH REGISTER 
4¢: eR oo 
S$: OS eon 
es: TYPE 
MOV 
SITB 
MOV 

7$: TYPE 

8s: -WORG O 

9S: TYPE SCRLF 
INC RY 
CMP RY, #8. 
BNE 1$ 

10S: TYPE , SCRLF 
>SEE WHICH MODE THE PROGRAM I 
-MODES ARE: ’FORMAT 8&8 VERIFY’ 
M1 CLR MODE 

T » MMODE 
RDLIN 
MOV (SP)+,R1 
TST6 (R11) 
BEQ es 
CMPB #’C,(R1) 
BEQ 1$ 
CMPB e’F, (RI) 
BEG 3$ 
TYPE SQUES 
BR Al 
1S: TYPE MHECK 
Bk AA 
2s: TYPE MF ORMT 
eh 4g 
33: TYPE MORMAT 
4$: MOV 6-1, MODE 
-FIND OUT IF 
MLA: TYPE »MSIZE 
ROLIN 
MOV (SP)+,.R1 
CMPB #’Y, (RL) 
BEG 
CMPB e’N, (RL) 
BEQ 
TSTB (R1) 
BEG is 
TYPE SQUES 
BF 1A 

1$: TYPE ,MSEC2e2 


: 
: 
ss 
3 
; 


AAT AU IA MUR TESS St Ree yee ney 


re 
rw 


CO3 


11 30(1046) ‘te ape 10:07. PAGE eg 





Y 
Pil O4-NOV-77 12:54 GET VALUE FOR SOFTWARE SWITCH REGISTER SEO D0ze 
1 013 01256 Vv 8260, Cc ROPE $43 IN SECTOR MO MODE 
003012 O01 1o5939 DOL SE MOV oR : At 
pase 32 b00025 001266 MOV at Se PBR. NDORESS IN 22 SECTOR MODE 
? es: TYPE 20 SE OR MODE SELECTED 
he 653736 001256 MOV aE boon. » WC A So Se 
B5037 Ores 001260 Vv Ht alta iA cYOR MODE 
4 CLR i 
l 3 001266 Vv 819. . MAXSEC Fax IN 20 SECTOR MODE 
1 MIB: CLR TRK ; 
y CLR y" TAs Ss 
oe D1 737 O01 SaB NOV = pATOEL : PATTERN 
003 118737 700095 4 MOVB a-1,FM He INV VALID DRIVE. NUMBE 
BR : 
-GO FIND OUT WHAT DRIVE 
003116 Ol 006116 001300 mo: MOV NTER, CNTLC ENT TRANCE 
0031 OOille CLR i 
0031 ? 01 JSR STKINT ak FOR nTty KEYBOARD 
134 l DI 020657 TYPE MONIT 
Oo3i4e 12601 ROW (SP)+,R1 KE YBORRD 
144 006425 ISR RS, CK: CHR s ADORE Bue CHARACTER 
1 176 3$ ‘TLLEGAL CHARACTER 
l 164 3 -CARRIAGE RETURN 
l 1 3 . 
003156 003164 2$ al 
1 be sR Te T O-2 
1 3$ ; DIG T 8-9 
1 001214 2g CLR DRIVE “SELECT DRIVE ZERO 
003170 104401 701 TYPE :GO TYPE DEFAULT DRIVE 
003174 3 BR S§ ; GO IF ORIVE ZERO IS THERE 
ace : . - BR — : FOR DRIVE R AGAIN 
003204 Obes? 001214 4$: MOV Re, DRIVE -SAVE ORI NUMBERS 
possi? Boro fe ee or ° 
149 I 000011 o00041 Cc 811,41 : LOADED FROM AN RPOW/S/6 ? 
Q 7§ Syn F iT Was CAN’T FORMAT THE ORIVE 
7 742 Ss: J PC, ST.C K 8 pay ‘Bal 
i 4 J Pp INIT 0 See VES ARE AVAILABLE 
177777 912206 MOV e-1, SAVEFG Save} 
177777 Ole2eio MOV e-1. SEEKFG ; SET ca he FLAG 
177776 CLR ; SET PR T 
012120 TSTB ORVSTA(R2) 
BGT 8S ; BNE IRE. 
Q Bg : DaIVE NOT AVAILABLE 
021067 TYPE MUSDR : Ralte agen: 
012130 6S: rere DRVTYP CRE) i IVE | re, NINBE ; 
020762 TYPE BORNE OPE. +OR VE NOT PRESENT’ 
BR al 8) °GO GET DRIVE NUMBER AGAIN 





DOS 
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CZRIBB.P11 DO4-NOV-77 12:54 GET VALUE FOR SOFTWARE SWITCH REGISTER SEG 0029 

146S 401 021007 7$: TYPE MERI : DRIVE NOT AVAILABLE’ 

1466 RTE Aoa70t BR 40 oO GE IVE NUMBER AGAIN 

13k 4 37 001214 001354 Bs: cNPE DRIVE, FMTOPB : -OR VE AS LAST TIME ” 

146 it 001214 001354 MOVB IVE, FMTOPB : SETUP DRIVE ADDRESS 

1470 737 leee MOV #410. ENDCYL } /S 

147} 1063 12130 BITe ss 06° BITO1, ORVT ) 1 #SEE IF DRIVE RPO4/S 

1473 001456 001222 MOV t 4 ENDCYL : TUP DING cyl NDER FOR RPO 

1474 012 9S: CLR TRK C T TING SS 

1475 001224 CLR GCYL ‘CLEAR START CYLINDER ADDRESS 

1476 003365 0137 O0leee 001376 MOV NOCYL, TABLE+2 EN RY L nit INNING CYLINDER 

1477 003374 013737 OOleee O0141e MOV NOCYL; TABLE+16 ;ENTRY LIMIT CYLINDER 

1478 003402 o00400 BR Me $GE SS LIMITS FROM THE OPERATOR 

1480 :GET ADDRESS LIMITS 

1482 OO34O04 104401 020710 M2: TYPE ; “ENTER ADDRESS LIMITS’ 

1483 003410 004737 006236 ISR PC. PARENT -GET THE ADDRESS LIMITS 

1484 003414 023737 OOle22e o01224 CMP ENOCYL,BEGCYL :SEE IF NDING CYLINDER EG TO GT THAN BEGINNING 

148S O03422 101010 BHI MY °BR IF HIGHER 

i486 0034 103404 BLO 3$ -BR IF LESS . 

1487 O034eh 023737 OC1226 001230 2s: CMP ENDTRK,BEGTRK :SEE IF ENDING TRACK EQ OR GT THAN BEGINNING 

1488 003434 103003 BHIS MY ‘BR IF YES 

1489 003436 104401 O2i4Sé 3S: TYPE MADRER ; INVALID ADDRESS ENTERED 

1430 CO0344e 000760 BR Ke : TRY AGAIN 

1u3¢ -GO GET DATA PATTERN FOR FORMAT 

i494 003444 104401 021560 M4: TYPE , MSELP :GO TYPE *SELECT PATTERN’ 

149S O034SO 104411 RDLIN *READ THE REVBOARD 

1496 O0034S2 012601 MOV (SP)+,R1 ‘ENTRY ADDRESS 

1497 OO3454 7 006426 ISR RS, CK: CHR ‘CHECK ONE CHARACTER 

1498 14 35 :TLLEGAL CHARAC 

1499 003462 74 1$ ‘CARRIAGE RET 

1500 14 3$ oles 

1501 74 1$ a 

i502 0034 2s ‘DIGIT 0-7 

1503 003472 14 3$ ;OIGIT 8-9 

1504 003474 1 1 021660 1S: TYPE MPATD : DEFAULT PATTERN 

1505 012702 000002 MOV b2, Re : T CASE PATTERN 

1209 BO3e0e Sepee? oo0002 25 BrP Re. #2 oe PV ERGER THAN 2 

1508 eae 101403 BLOS 4g’ ‘BRANCH IF NOT 

1509 003514 104401 001166 3S: TYPE SQUES ‘TYPE °?? 

iS10 003520 751 BR AY ‘RETYPE LINE 

1511 0032S22e 010237 o01240 4S: MOV R2, PATSEL -SAVE PATTERN SELECTED 

tat :GO TYPE ’STARTING FORMAT ON DRIVE N’ 

11S 3526 012737 006136 001300 ms: MOV STYPADR,CNTLC  ;CHANGE tC ENTRANCE 

1516 003534 005737 001220 TST MODE : FORMAT’ OR ’CHECK’ MODE ” 

1517 0035 001403 BEG 1$ ‘BR IF *CHECK’ MODE 

1518 O03S42 104401 021673 TYPE MSF OU *TYPE ‘STARTING FORMAT ON DRIVE N° 

15139 GO3S4e6 004 BR 

1520 903550 104401 021730 1$: TYPE »MSCHK :TYPE "STARTING CHECK ON DRIVE N° 


pure @ 
wre 


RES SE SONY 


8 


b— bas be be Bo pe be be Bae be be Pe Be be be he be Be Be 
BRU Rie 
SRR 


5 


‘7 7. 
Wr 


UUIUTU UT UT UU 


PUNE UO. NOU 


N 


afaratarraary ty 


ul 
wo 


RRTERES 


ede ded ed edd? + uw 
SIN 2 NNNN oO 
W-OWOON 


: b+ B= b= b= b- « &-2 b= b= BO & bo b= b&b — P= = BP = = bb 
mu 


EOS 
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Pil O4-NOV-77 12:54 GET VALUE FOR SOFTWARE SWITCH REGISTER SEG 0020 
003554 2s: 
003554 013746 001214 MOV DRIVE, -<SP) ;;SAVE DRIVE FOR TYPEOUT 


>: TYPE DRIVE NUMBE 





003550 104403 TYPOS 5 330 YPE-“OCTAL ASCII 
86 . 5 4 
BO Sees ie OTE i 23S de CE AOING ZEROS 
003564 104401 601167 TYPE , SCRLF - CR-LF 
:SETUP TOTAL TRACK COUNT FOR FORMAT 
003570 023737 OO0l222 001224 CKADRS: CMP ENDCYL,BEGCYL ;STARTING AND ENDING CYLINDERS THE SAME ” 
003576 O11 BNE ‘BRANCH IF BEGCYL NOT EQUAL TO ENDCYL 
003600 013737 001226 001232 MOV ENDTRK, TTRKS i END TRACK RODRESS 
003606 163737 901230 O0le3e SUB BEGTRK, TTRKS ‘SUBTRACT THE STARTING TRACK ADDRESS 
003614 g05237 001232 INC TTRKS -MAKE THE NUMBER OF TRACKS INCLUSIVE 
OSes ete. poizee 1s co PROT... Re oe ioe 
1637 22 Bb iSo4 SUB BO REYL’ c OT RACT See ORTING CYLINDER 
13737 OO0l2ee6 001232 MOV ENDTRK, TTRKS ‘CALCULATE THE RESIDUAL TRACKS 
0036 l 001230 001232 SUB GTRK; TTRKS : SUBTRACT THE STARTING TRACK 
0036 1 BPL . F NDI RACK GREATER 
003650 062737 o00023 001232 ADD #19. , TTRKS -C CT THE VALUE 
003658 DEC R ‘COUNT THE PARTIAL TRACK 
001232 2s: INC TTRKS °MAKE THE INCLUSIVE 
003664 33: DEC Re : DEC MENT THE CYLINDER COUNT 
003666 BMI SETPAT -BR IF DONE 
003670 090023 001232 ADD #19.,TTRKS ‘ADD CYLINDER WORTH OF TRACKS 
003676 BR 3$ : CONT INUE 
-THIS CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON EACH SECTOR IMAGE 
003700 o0S037 o012e42 SETPAT: CLR PATA sCLEAR DATA PATTERN A 
063704 005037 001244 CLR PATB ‘CLEAR DATA PATTERN B 
003710 737 001240 TST PATSEL i SEE IF PATTERN OF ONES 
093714 1416 BEQ 1$ -BR IF 
003716 13? go 1242 COM PATA i SET PATA TO ONES 
903722 0051 1244 COM PATB - SET PATE TO ONES 
003726 Gee? 37 000001 001240 CMP #1,PATSEL -SEE IF PATTERN OF ZEROS 
003734 1406 BEG : H IF SO 
003736 012737 16SSSS 001242 MOV 8165555, PATA “SET UP WORST CASE 
N03744 O1le7 133333 001244 MOV #1333323,PATB -SET UP WORST CASE 
37S2 013703 001256 1S: MOV we. R3 :SET UP COUNTER 
01 00 025130 MOV aBUFP RO i SET UP MEMORY POINTER 
13701 OO0le4e MOV PATA,AL -SET UP PATTERN IN 
003766 013702 0601244 MOV PATB: Re ‘SET UP PATTERN IN Re 
00377e 010120 2s: MOV R1, (RO)+ :MOV 1ST PAT INTO 
010220 MOV Re’ (RU)+ ‘MOV 2ND PAT INTO MEM 
005303 DEC “KEEP COUNT 
005303 DEC R3 * KEEP COUNT 
004002 001372 BNE 2$ ‘00 IT AGAIN IF R3 NOT O 
;THIS CODE SETS UP FOR THE ACTUAL FORMAT 
9004004 004737 oDOs4Oe WRTRK: JSR PC, SETTBL -GO SET _UP DRIVER TABLE ‘ 
804010 904737 O0560e ISR PC SETHOR ‘GO INITIALIZE HEADERS IN THE SECTOR BUFFER IN CORE 
904014 112727 O000e0 cO1355 MOVE #20, FMTDPB+1 ‘LOAD FMT2e BIT 
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;CHECK THE TRACK JUST WRITTEN 


Pil -NOV-77 12:54 GET VALUE FOR SOFT: SHITCH REGISTER SEG 0031 
004022 905737 001264 TST SEC20 ;18 BIT MODE ? 
i > ppai as 001356 1$ nb PHTOPO +L Ce pppes’ . ’ COMMAND 
704C 7 013034 2s: JSR RO, RPO4' : OMMAND 
4 FMTDPB ; 
DO4OSC Be ; 
5040S< 737 001372 3S: rs FMTOPB+16 
DOMES , 001216 WRTRK1: CLR : 
as , 
108037 Bb Ses CLRB FNTOPB+10 Re 
1 901260 001360 MOV FMTOPB+4 : 
108 12737 025130 001362 MOV SBUEP. FMTDPB+6 RE ; , 
Bouiis poivea eee BO CKT ‘BR IF ex’ Hobe 
004116 112737 000163 001356 WRTRK2: HOVE SUR THD, ENTOPB+2 ise WRITE HEADER & DATA TA. COMMAND IN TBL 
pout Sa pista. i150 MOV STACK, SP COA TACK Pees 
004136 004037 013034 1S: JSR RO, RPO4 -GO TAT 
004 14e 1354 FMTDPB . ; ORS OF PARAMETERS — TBL 
BOW Ne 005737 001372 2s: rst ENTOPB+ 16 “WAIT FOR CORRND TO COMPLETE 
BE 154 BPL 4§ BRANCH IF ERROR 
boutee Mee 004204 901160 MOV 83S SESCAPE > ESC TO ON ERROR 
004164 004737 JSR PC, .ERIN ; SEE WHICH ERROR 
poaise 1Bupte RROR 11 PERS TENT let ie UNSAFE ERROR 
004174 1604012 ERROR le SBUS PARITY ERROR 
004176 104013 ERROR 13 SOFT UT oR 
Ooete IGO1s 005334 3$ — Be LOP. CK ves REGRO Nn en 
oo4210 gee? 37 000003 001250 CHP #3, RETRY ERROR RETRY LIMIT ? 
ooveed 05237 001250 INC RETRY ; COUNT THe ERROR 
ye : APE “CLEAR ERROR ESCAPE ADDRESS 
podSSe opens? 001250 = cL R SESS “CLEAR THE RETRY COUNTER 
004236 112737 000153 001356 CKTRK: MOVB BUCKHD  EMTOPB+2 ; :$ T WRIT CHECK HEADER & DATA COMMAND IN TBL 
pouses 012706 bb Tod MOV SSTACK SP "LOAD STACK POINTE 
004256 904037 013034 1S: JSR RO, RPO4 ; GO CHECK arr TERS JUST FORMATTED 

sti “WAIT FOR QUE F FULL 
OoNebe 008737 001372 2s: Tst EATOPBS16 Walt FOR COMMAND TO COMPLETE 
Bods 100112 BPL 8$ i BRANCH IF NO ERROR 
004276 113737 001312 ooliese MOVB RP. REG*RPOA, SAVSEC ET THE SECTOR. RODRESS 
0043 013737 OO1266 o01252 MOV MAXSEC,SAVSEC :RESTORE TO LAST SECTOR +1 
064214 005237 O012e52 INC SAVSEC : INCREMENT TO LAST SECTOR +1 


OO 

















RIBBO. RPO4/S’& FMTR MACY11 30(1046) 07-NOV-77_ 10:07 PAGE 3 
SRIBB P11 =NOV-77 12:54 cet VALUE F iO? WARE Sit TCH REGISTER SEG 9022 
1633 Op3e9 Men g01252 came 3S: DEC s108, ‘ s ADJUST CTOR TQ THE ONE THAT FRILED 
16 737 ee JSR PC, afnox SEE inte ERROR 
l 104011 ERR 11 i PERS ae DRIVE UNSAFE ERROR 
1638 1 le ERROR le : UNC CT LE MASSBUS PARITY ERROR 
1639 10401 ERROR 13 : SOF TIMEOUT 
1640 O4014 ERROR 14 : IVE rE ERROR 
1641 37 040000 001314 IT BUCE , RP. REG+RPCSe WAT 7c CK ERROR ” 
1643 O04 033727 001320 BIT RP. REG+RPERI, (PC}+ j CHECK FOR DATA ERRORS 
1644 004364 130620 . WORD DCK!OPI!D ESHCRC!HCE FER | ;DATA ERROR BITS 
1646 004370 104016 ERROR 16 : CON ROLLER/ORIVE ERROR DURING WRITE CHECK 
1647 004372 0057 001220 4S: TST MODE : FORMAT CHECK MODE ? 
1648 004376 1407 BEQ S$ ‘BR IF CHECK 
1649 004400 005737 001216 rst SOF Si ;RETRYING THE SECTOR ? 
1651 can poss 004612 001160 MOV #11S, SESCAPE : = ESCAPE TQ 118 ON ERROR 
1652 414 104017 ERROR ? : OR NO CEPTABLE 
1653 1 001160 cs: CLR SESCAPE : CLEAR THE RROR ESCAPE ADDRESS 
1654 ? 040000 001316 BIT #ERR, RP. REG+RPOS! sDATA REGR ? 
1655 l BNE 6 -BR' IF IT IS 
Hees Gs dgaup) er eoarigec™ ERROR 
1658 pou se 104020 6S: ERROR 20 ‘DATA NEROR DURING WRITE CHECK 
16538 Bes itaee> BBISES cosy * MOV) BAVSER’ Eh rppasi0’ “SEATOR ADDRES ™ 
1661 oud? i ASL 1 sti ROEX 10 ADDRESS WORDS 
1662 OO44S4 016137 001476 001362 MOV ADRTBL(R1),FMTDPB+6 ;SUFFER ADDRESS FOR FAILING SECTOR 
1663 GouNibe B13746 001 MOV MWC, - (SP) sGET MAX mu WORD COUNT VALUE (2° COMP) 
1664 066116 001SS2 ADD WCTBL(R1),(SP) ; WORD OUNT THROUGH FAILING SECTOR 
1665 O0O4472 012637 001254 MOY (SP)+, SAVWC iS ORE WORD COUNT FOR REMAINDER OF TRACK 
1666 004476 005737 OOleecd TST MODE “FORMAT OR CHECK MODE ” 
ae DodeDS EET 77374 001360 By 22260 FMTOPB+4 BR a COUNT FOR 1 SECTOR 
16639 O04Sie2 pAe5 35 boi216 INC SOFSW ° : NO CSTE THAT A RETRY IS IN PROGRESS 
1670 16 000137 004116 IMP WRTRK2 : aeMA ERROR SECTOR | 
1671 005737 O01216 Qs: TST SOF SW ‘RETRY IN PROGRESS ” 
1672 OO4S26 001431 BEO 11$ -BR IF NOT 
1673 004530 022737 ocO00De 001216 CMP #2, SOFSW ; SEE IF LAST RETRY 
1674 001 BEO 9$ : IF J Is 
1675 O04540 o00S2 001216 INC SOF SW ; INCRE NT RETRY COUNT 
1676 OO4544 OOD644 BR 1$ : aD AGAIN | 
1677 46 123737 OO1266 901364 9S: ciPB MAXSEC , FATDPB+10 ah cE IF LAST SECTOR ON THE TRACK 
1679 pDa7 a9 oosss4 ISR PC. SCAWC : SE TUP +5 CHECK REMAINING SECTORS ON THE TRACK 
1680 001216 CLR SOF Sid ‘CLEAR RETRY COUNTE 
1681 booe BR 1$ *FINISH CHECKING THE TRACK 
1682 004737 005334 10$: ISR PC, LOP. CK ; CHECK FOR LOOP ON ERROR 
1683 022737 000003 001250 CMP #3 RETRY ‘ERROR RETRY REACHED 
1684 0014 BEQ 11 -BR IF iy 6 
168S 005237 001250 INC RETRY : COUNT HE ETRY 
1686 000622 BR 1$ ‘00 THE WRITE CHECK AGAIN 
1687 005037 001160 118: CLR SESCAPE ‘CLEAR THE ERROR RETURN ESCAPE ADDRESS 
1688 005037 001250 CLR RETRY ‘CLEAR THE RETRY COUNTER 
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1689 O0%622 032777 O0000e 174310 ae +? Ne aSWR sLOOP ON CURRENT TRACK ” 
1690 004630 001402 


680435 B82938 l2$: ie ak Kies pages PACK Ste SS nes ADDRESSES 


= 
5 
on 


1693 OO464e o0040e RETURN HE CK CHECK OF DISK 
1634 004644 000137 004060 one HOREAD CONTINUE + ee THE Oe E oRMA 

1696 s THIS = MAKES SURE EACH CYLINOER DER FORMATTED CONTAINS THE 

1698 PROPER C "EYLINDER ADDRESS.” THE, PR MAY OER WAVE OOK MRED b DURING THE FORMAT. 
1790 QO4650 905037 001262 HOREAD: CLR HEDERR ;CLEQR HEADER CHECK ERROR INDICATOR 
1702 pOMeEO ree abe Oe JSR Bk SETHBR GO T UP HEADERS TCE ORE 

1703 DO4EE4 013737 l2e4 001246 Mov BEGCYL , CYLCK ; USE "BEGcyL’ FOR FORMAT VERIFICATION 
1705 Bo4S05 piss 120 Bot See MOV eRBOF FRTDPos SET UP BUFFER RORS 

1708 004706 005037 1364 al CLR bP6 +10 psi2" CLEAR THE SE cro TRACK ADDRESS FIELD 
a 

12a pBuS o135 ? pOATss Bbi 6 MOVB Sie FMTD SET UP Re EAD ‘out parE. COMMAND 

1729 0047 0187 ? 4726 001110 MOV SLPERR SETUP LOOP 

1719 Oo47 127 ll MOV ast .S STACK on ERRee 

17i1 904740 004037 013034 1S: JSR RO, RPO4 iLO READ HEADER 


tJ 


OO 
= = bb bs bo be 0 bo be be be Bb Be 0 eb be BB ee bs be be ee he a 


NNN NNN NN SNN SINS NNN NNN SSNS Gt 


Ree 


Buy 


“J sooo ao “J 
PN cwr-O 


N 


HONTHEOU-GSOIRRLOV-SBONTNLU-OODVTU LOM BD 


mnnaaomnasonnn gas 
ROR LRES RABE TRESS 


oo 
oO 
w 


ee 899099 
rare 
£=N 
ps yt et 
Neen SW ONN 


ae 
GaSe 


eee 


Re 
ShSeeesoRReS 
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00137e 


oosSO4e 
00Se34 


177577 
001160 


005334 
025120 


00S334 
O00leee 


005100 
001246 
005662 
001366 


000042 


061160 


00137e 


025130 


001246 


001100 


oft Venu “77 
T VALUE F 


es: 


FMTOPB 


I03 


oR SOFTWARE SiiT 
cor TWARE SWITCH REGISTER 


. Soo te. Vas 
















noe? F SF 

FMTOPB+16 Haat IF “CORRANS TO. TO COMPLETE 
2 ;BRANCH TF wer 8 NOT DONE 
#5$, SESCAPE s jESCAPE To. S$ ON ERROR 
PC e ERIN NOX See TCH ERROR 
11 7 ne 7 UNSAFE ERROR 
re SBUS PARITY ERROR 
rf 
BICCHCE>, ronal ane ONL Y Bolt Palo A HEADER COMPARE ERROR ? 
21 petty R/ IVE ERROR VERIFYING HEADERS 
SESCAPE + 6P8 ESCAPE ADDRESS 
22 ; HE ADE oF ERROR VERIFYING HEADERS 
PC LOP.CK : “FOR L ON 
RBUF , BUFP SEE IF oft READ EQUALS CYL EXPECTED 
23 : eet OT Re CT 
PC, LOP.CK : OR OOP 
ENOCYL, CYLCK : F LAST C 

INDER ADDRESS BEING CHECKED 
PC ,UPDACY : 
FMTDPB+12 -AD 
1$ GO 


-SBTTL END OF PASS ROUTINE 
[ener ee 


LINC 
STF REERES A 
#IF THERE ISN’T 
anor 
TST 
BEG 
Le 
3$: TY 
“4$ : TYPE 
OV 
TYPOS 
TYPE 
INC 
BIC 
DEC 
SEOPCT: .WORD 
BGT 
MOV 
SENDCT: .WORD 
SEOPCT 
S$GET42: MOV 


AONE TOR OTO IT 


JUMP 70 DONE. 


MODE 

MFCMPT 
4g 
,MCCMPT 
NUMERR 
SERTTL,-(SP) 
SCRLF 
00000, $PASS 
)¢+ 


vO Uv 
oOo OOD 
D Ww) 





ORMAT’ OR *CHECK’ MODE ” 
IF *CHECK’ 
FORMAT COMPLETE’ 
NISH THE END MESSAGE 
7 Teh cone E’ 
*TO pL ent DETECTED: ’ 
RTTL FOR TYPEOUT 
YPE--DECIMAL ASCII WITH SIGN 


0 TY 

=. 
; INCREMENT THE PASS NUMBER 
; DON’ T ALLOW A NEG. NUMBER 


53 YES 
> ;RESTORE COUNTER 


;;GET MONITOR ADDRESS 


SEG 0034 


CZRJBBO, RPOY’S’6 FMTR 
C2R 


001405 


17 
Reis Bes 
oe 


SSUNSUSSUSUSSSUSSSSSSssS 2 
~ 
ER gy 


pee 
N= 


a 
ee 


ona Serene 


e 


= 
a 


WWOMDWOWMOMMOWD 
© 
hoo" 
OO 
Nw 


= bb bb ee 
WONOU£ wre 
Ww 
tetas 


8 
ae 


P= b— bs 0 b= be Bs be bo bo Be Bae Be Bae 2 Be Bee Bee Pan Bee ee Be Bae Be Bw Bs Be Fae Bee Ps ee Hee 

ruruotu 

wre 
oO 
© 
un 
Ww 
= 
£ 
oO 
oO 
| 
— 
N 
N 


000001 
003116 
001100 
003S26 


001372 
001372 
001372 
001372 


001372 


o0000e 


001000 


173540 
001160 
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173722 


173576 
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END OF PASS ROUTINE 


BEQ SDOAGN 
ET 


RES 
SENDAD: JSR PC, (RO) 
NOP 
NOP 
NOP 
SDOAGN: 
JMP a(PC)+ 
SRTNAD: .WORD DONE 
DONE : BIT sSWO, aJSWR 
BNE 1$ 
JMP MO 
1$: MOV sSTACK, SP 
JMP MS 


5; RHKHLEKAEELELALALELALLLA LAKE LAAALELAALLLAAASLELALELAALRAELRAALEE 


._SBTTL SUPPORT SUBROUTINES 


5s SHHHRSLAAELALAEEKALELAAAEKAALRLLLALALAAAKERAALALAERALAARARAKAAAAALLLES 


+ ORE OR IF NO_ MONITOR 
WORLD 


; CLEAR THE 


;; RETURN 


;SEE IF SWR O SET 

;BR IF SET 

“ASK FOR NEXT DRIVE 

;RESET STACK POINTER 

:D0 THE FORMAT OR CHECK AGAIN 


; THIS ROUTINE DETERMINES THE ERROR TYPE 


ERINDX: MOV R1,-(SP) 
CLR Ri’ 


BIT FMTOPB+16, (PC)+ 
. WORD rTpaeatfi sess ta: 


BNE $ 
BIT Oren eed, (Lie 
WORD BITle 


BIT11!BITIO 


WORD TOS! BITOs 


WW 
wh 
ba 
z 
Oo 
VU-DADBDAADDD-O Won 
a 


4 

BIT FMTDPB+ 16 (PC )+ 
ORD 

IT FMTDPB+16, (PC)+ 


NE 
IT FMTOPB+16, (PC)+ 
TOY 


;STORE Ri 
LEAR R1 
-CHECK ERROR TYPE 
BITI -<ORIVE OFFLINE 
IF OFF ELI 


ne YPE 
RSISTENTLY UNSAFE 


sie: 


22 


ries 


Za 
| md 
Ss eee ete 


mee agaaa 
Peace 
=a9™ 
“i 

z 

3 

zB 

2 


;ROUTINE TO CHECK FOR LOOP ON ERROR 


LOP.CK: BIT #SWO9 , JSWR 
SEQ 1$ 


JMP @$LPERR 
1$: CLR SESCAPE 


;LOOP_ON eo ? 
‘BR IF N 


;GO TO THE L OOP ON ERROR ADDRESS 
-CLEAR THE ERROR ESCAPE ADDRESS 


RROR TYPE 
RES RiTY ERR a ROUS PARITY ERROR ? 
ARITY 


SEG 0035 
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CZRIBB.P11 O4-NOV-77 12:54 SUPPORT SUBROUTINES SEG 0036 
e2u 001372 BIT FMTOPB+ 16 (PC)+ CK FOR ’FATAL’ ERROR | 
ORD BITi4! iB S6ifi2i girs 10:8 BITOL ;’FATAL’ ERROR SITS 
004000 00:320 iT suLE, ,RP.REG+RPERL BITE LOCK ERROR ? 
005100 2S: IMP oP PE RMINATE THE FORMAT 
3S: RTS PC : RETURN 


l 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
l 
1 
1 
1 
1 
i 
1 
1 
1 
1 





; THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE 


82S 
830 
831 
832 
833 
834 
83S 
836 
837 

38 





113737 001214 001354 SETTBL: MOVB ee le ab? ORIVE 
4] 37 001357 CLRB AR H pS Brest ADRS BITS 
Mas T3035 1260 001360 MOV ano 
poS¥ee 012737 625130 001362 MOV seu PMT +6 He CURRENT NORS 
g 0054 105037 1364 CLRB CTOR TO ZERO 
B40 Obewde O13737 polse4 SOLSEe MOV” acy RK, ERTDEBe 14" :2ET Up Up STARTING NG CYL _— 
841] ppeue ? 001372 CLR BEG SPBsiE ee Rpoa St 
842 O0054S4 013737 001230 001236 MOV GTRK Ten i ge! UP PORTTAL aA TRACK COUNT 
843 005462 013737 OOlese 001234 MOV RKS, TTRK -SET UP TOTAL TRACKS COUNTER 
844 005470 000207 RTS PC :RETURN FROM SETUP 
Sue - THIS ROUTINE CONTROLS THE ISK SSING AND TOTAL TRK COUNT 
ou? -IT IS ENTERED AFTER EVERY ION 
849 TRKTST: DEC TTRKSC -SEE IF LAST TRACK 
8s0 BEQ 3$ . H IF LAST TRACK 
B31 001236 CNP #18. , TRKCNT -IS THIS r otAst TRACK IN THE CYLINDER ” 
8S3 INC TRKCNT :C a TRACK WITHIN CYLINDER 
854 NCB ERTDPBs 11 -I NT TRACK NUMBER 
BSS JSR PC, UPDATK ; K ADDRESS IN BUFFER 
1S: CLR CNT AR TRACK COUNT FOR NEXT CYLINDER 
CLRB FMTOPB+11 ; T TRACK ADORESS TO O 
INC FMTDPB+1le ; UPDAT CYLINDER NUMBER 
JSR PC, UPDACY TE CYLINDER NUMBER IN BUFFER 
2s: ADD se, (SP) ; TWO T TURN ADRS 
33: RTS PC : RE TURN 





; THIS ROUT SETS UP_WC & BA FOR REMAINING SECTORS 
;AFTER A WRITE CHECK ERROR 


SSeS UR UR EDEN EER URED En Une EnEnenen onan en enenenanenes anenee eee 
SERE CRRRRRRRERRRR 
nf) NOUS Wr OwW 


DOSSS4 013737 001254 001360 SCAWC: MOV SAVWC ,.FMTOPB+4 ;SET UP WC FOR REMAINING SECTORS 
062737 001010 9001362 ADD #Se0..FMTOPB+6 ;:SET UP BA FOR REMAINING SECTORS 
869 005570 9005237 001364 INC FMTOPB+10 ‘ADVANCE TO NEXT SECTOR IN TBL 
870 005574 0605037 OO0l2i6 CLR SOF Si “RESET RETRY COUNTER 
e7k 005600 000207 ‘RETURN TO COMPLETE TRK FORMAT 
873 
B74 »THIS ROUTINE SETS UP THE CYLINDER ADRS FORMAT | BIT. TRACK AND 
aP *SECTOR ADRS IN MEMORY WITH THE STARTING CYL - TR tNFORMATION 
O00S602 013701 cOl26be SETHOR: MOV max EC,R1 ;SET UP SECTOR COUNT 
8728 Oo0S6 012700 025130 MOV UFP. RO ‘SET UP HEADER POINTER IN RO 
90S6i2 013702 001224 MOV Beccyt. Ro ‘PUT STARTING CYL # IN Re 


cenveed, oes +h 


16 013703 


- 


y 


gcc 
ce 


Re 
¥e 
“INP-W 


: cara | 


: 


R28 
=}= 
ae 


i | 


cs 


WOnNMUW Sule O 


a ee ee ee ee ee ee ee ee ee ee ed ee ee ee ee ee eee 
WOWWUDWWWWW 


RES RO SBE NRR Pes 
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001236 
001264 
G10000 


001002 


07-NOV-77 
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1S: 


0:07 PAGE 38 


BEGTRK,R3 :PUT STARTING TRK # IN R3 
SF e20 ee IF i BOER TOR MODE 

- 0000, Re BR IF 2 E1OR RODE BIT 
Ro + +R TE IN HE R AREA OF CORE THE CYL ADRS 
Ra. (RO)+ WRT NM R AREA OF CORE THE TRK ADRS 
(RO) ice Ba Ke 

4.,R ; F x R 

Ho ¥ : E SECT AORS FOF ohext HEADER 
ne ;BRANCH TF NT RST SE ef oR 

C ‘EXIT - HEADERS ARE LOADED INTO CORE 


s THIS ROUTINE UPDATES THE CYLINDER ADRS OF THE HEADER WORDS IN CORE 


UPDACY: 


1$: 


MOV 
ue 
BTC 
- 
gs 


RTS 


MAXSEC,R1 


T 
: i SET Up eet oF R BOYNT NTER IN RO 
(RO + ane Ase CRERENT FO NEXT CYLINDER 
8 ; 

e18 ,RO FoR Ages NEADER 


| a NOT LAST SECTOR 


- THIS ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WORDS IN CORE 


UPDATK: 


1S: 


MOV 
MOV 
TST 
ADD 


;ROUTINE TO 


ST.CLK: 


STCLKI: 


MOV 


;SET UP SECTOR C , 
R SOINTER IN_RO 
:POINt WeROER — TO TRK - SEC ADRS 


BUF, AG Rl 


“4 0, (RO) 
a »RO BEY Ue coe OREXT HEADER 
b3 | gee iF TNOT LAST SECTOR 


CHECK FOR KWl1-i OR mui CLOCKS 


ast Q¥ERRVEC - -SET UP VECTOR FOR P CLK 
seraueene sNEW PSI 

SAME on, veero FOR KW11-P 
ast K,a(SP) T YP LK KW1i-P VECTOR 
ePRE.a(SP)+ sPOINT or 6 
8-1, a3LKC ‘LOAD COUNTER BUFFER 
ai38 Keer :SET CLK - CNT UP 
#4 4°&p RESTORE THE STACK POINTER 
sein" | DWERRVEC’ cox roa maNGe E ERROR VECTOR 
acto C,-(SP) KW 1 $Y VECTOR ADORE SS 

LOCK, acSP) ; SE KWLil-L V 


T 
NCR EMENT VECTOR ADDRESS 
SBAG < sae SU PRI 6 


SEG 0037 


CZRJBB0, RPOY/S/’6 FMTR 


CZRJBB. 


~ 
ve) 
Ww 
N“ 


pio Pet Pt fF bs hee Be fh fo B= bo bm p> Ps bs pe 


SERERPEPFRERRR ERE RERR SPIELE LS Sie 8 


Jeu Zan 





OO O00000000 
NN 
wo 


raed tt dad 


te -ba bs f= b~p— bb b— bb b= b= = 2 FP 2 2 0 2 bb 0 2 bb 2 2b pe 9 pb 9 pp 9 


ve) 
0 
~~ 


b 


See eee | 
TWFLOLOLOLONe Rees Tok Keo 


a 


ae 





012777 


N 


pan fees 
x 
pst he 


: 


o0° 
a 


e 


| 
£ 
_ 
oe 


000100 


sefelatet§ 


000020 
016466 


020671 
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173120 


000004 


001300 


001300 


O03 


geet a 10:07 PAGE 39 


UPPORT SUBROUTINES 
td dng JSLKS ;SET KWil-L INTERRUPT ENABLE 
STELKS: Ay (RESTORE THE ERROR VECTOR 


; THIS CODE SERVICES A CLOCK INTERRUPT EVERY 16MS 


ae; SUERRVEC 
P 


CLOCK: MOV #16. .-(SP) :PUT M LL ISECONDS ON THE STACK 
JSR PC, RPTMR GO ORT 
RTI *RET AND AOE TINUE 


;ROUTINE TO INTERCEPT ’CONTROL C’ TYPED DURING PARAMETER ENTRY TIME 


NTER: MOV ACK, SP NIT ZE_T 
tt re} TRnsht ALL acy! try Sr6PPeD 0 
BeSET raha Te BUS 
MP M1B : START AGAIN WITH DRIVE SELECTION 
sROUTINE TO TYPE THE PRESENT DISK ADDRESS. ENTERED BY TYPING ’CONTROL C’ 
TYPADR: CLR eB T PROCESSOR TO PRIORITY O 
MOV ° NTER, CNTLC HANGE ROL C’ RETURN ADDRESS 
TYPE ADORIS’ om ADORESS IS: 
MOV Errpppsie, -(SP) °:PUT THE CYLINDER ADD ADDRESS ON THE STACK 
JSR ; CONVERT IT TO DECIMAL 
JGR PC ,SSUPRS TYPE 
Typ i SPACE 
TY 
CiLR val CLEAR THE ST STACK 
Mo EM $11, (SP); K ADDRESS ON THE STACK 
JSR i RT IT TO DECIMAL 
ISk Pe S -TYPE IT 
TYPE RLF jCR-LF 
MoV bTYPADR, CNTLC i RES ENTRANCE TO THIS ROUTINE 


;PARAMETER ENTRY ROUTINE 
; CALL 


: MOV R3 PARAMETER TABLE ADDRESS 
JSR PC, PARENT IGET THE PARAMETERS 
PARENT: MOV R3,-(SP) 
MOV STABLE 3 ;PRREME TER. TABLE 8 TABL ADDRESS 
1S: MOV (R3)+, 3S 
E 3% F AT AT & Pans TER 
WOR ie Lee 
3S: .WORD O TER NAME TEXT 
MOV (R3)+,Re BRAMETER Tate 
MOV (R3)+,RS #ADO ESS OF Par 
MOV (RS),-(SP) :C VALUE OF PARA METER 
TYPOS ; TYPE, THE CURRENT VALUE OF THE PARAMETER 
YP , SLASH 
RDLIN READ THE KEYBOARD 


SEG 0036 





NOS 
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7RJ8B.P1 UPPORT SUBROUTINES SEG 0039 
MOV (SP)+,R1_ sINPUT ASCII STRING ADDRESS 
1335 pices oo06S00 JOR RS,CK:DIG ; CHECK THE Me T(S) + mee 
134 Q 33 BER] BONY RY ERED 
i335 BH it TED WITH A CARRIAGE RETURN 
i 48 % : TERMINAT B ITH he 
1338 SS ‘TERMINATED WITHA ”.” : osteeei 
6006 S Ss: MOV Re, (RS) ; VE WV TO. PARAME ER LO 
l 1 an) 5 
2002 : TYPE BADENT NTRY 
2003 1D 5703 att ” SUB 86, R3 ; DEC ENT THE TABLE POINTER 
2005 oie BG 43 ‘NEW VALUE 
021 7S: HOV Re, (RS) NEM 
e008 4 : 
200 12703 001374 8s: MOV eTABLE, R3 ;RELOAD THE PARAMETER TABLE ADDRESS 
Sui : MOV (SP)+.R3 ‘RESTORE R32 
Barts paseo ™ RTS = + RETURN 
ae 
. TINE IS USED TO CHECK IF AN 
cote JASCIT CHARACTER IS A DIGIT BETWEEN O AND 7 
2015 : . - 
Sai? a4 BOO oct s RODRE SS, OF FREI CHARACTE 
chile RETURNI ' CHARACT NOT BETWEEN 0-7 
cni8 ! RETURNS ‘ CHARACTER i IN R2 AS A 
5020 SOCTAL DIGI 
Sn52 006352 121127 O00060 CK.OCT: cMPa (RL), #°0 Ves: _r'en ZERO? 
Bee BOE SE 131127 000067 chr (RL), #°7 ;GREATER THAN SEVEN? 
2025 006364 101004 
S55 etteha Ad3206 Bree (R12 :S RIP AWRY . ERI 
Ba rater BoE soe silitlais Bic REDS ADJUST FOR RETURN 
e029 006376 ocO0020S 1S: Ris RS : 
: USED TO CHECK AN ASCII CHARACTE 
Shas AE DETERMINE. TF IT IS A DIGIT Ne aren 0 AND 3. 
2033 : 
coae MOR Re ck DEC iC cK} E. CHARACTER — 
Shae RE TURNE OC TWEEN D AND & 
2038 ; -Re = DIGIT 
Bank 0064 121187 000060 CK.DEC: CMPB (R1},#°0 ;LESS_ THAN ZERO? 
Bite DOEY 1 5 a att 8’9 °GREATER THAN NINE? 
2 408 ie 000071 CMPB ' ; GREATER. T 
ae BoE thi AON +B) R2 ° : THE CHARACTER 
204 ie O42 ocoo pee’ #’0.Re “STRIP Y THE ASCII 
SOE nates ? “ BS (RS5+ ‘ADJUST FOR He 
2047 S0642e4 oOcoeds 1$: RTS RS : RETURN 


BO4 
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2048 
2048 : THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
501 ; DETERMINE WHAT IT IS. 

5 MOV BADR, Ri : SS_OF ASCII CHARACTER 
2053 JSR RS. CK. CHR ‘CHECK CHARACTE 
2054 : TURN : UINK CHARACTER 
2055 : TURN ‘CARRIAGE RETURN # (R1)=ADR+1 
2056 : TURN 3 °C * (RY) =AOR+ 1 
20S7 : TURN ADRS : 90 * ( 4 = +1 
2058 : RETURN RORS -DIG TWEEN O AND 7. 

g TURN ‘DIGIT BETWEEN 8 AND 9. 
sing . . = DIGIT # (R1)=ADR+1 
e0be CK.CHR: TSTB (Ri) s“CARRIAGE RETURN”? 

BEG 3$ -YES -- BRANCH 

2004 CMPB (Rl), #’, 2 9 
2065 BEG 2g : -- BRANCH 
2066 CMPB (Rl),#’. te ” 
2067 BEQ 1s iYE -- BRANC 
2068 ISP ,CK.DEC : "DIGIT"? 
2069 BR 4$ >NO -- 
2070 ISR RS CK. OCT -OCTAL ? 
2071 TST (RS)+ s DIG BETWEEN gH 
2072 TST (RS)+ : T BETWEEN 0-7 
2073 1S: TST (RS)+ : PERIOD 
2074 es: TST ode : COMMA 
2075 3$: TST (RS)+ ; CARRIAGE RETURN 
2076 INC Ri *-MOVE POINTER TO NEXT CHARACTER 
2077 4g MOV (RS),RS * UNKNOWN CHARACTER 
2678 RTS RS : RE TURN 
coed :THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
2081 ; CHAR TERS AND FORMS A DECIMAL VALUE BI NUMBER IN Re. 
Bie : MOV sAOR, RI -ADDRESS OF IZ STRING 
2084 :} MOV NUM : MAX. IT OF INPUT NUMBER 
208s : JSR Ck. DIG *CHECK DIGIT 
2086 : RE TURN j 2" C ONLY ENTERED - =0 
2087 : RETURN : - “PERT Y ENTERED -- Re=0 
2088 : RETURN ADR - ILLEGAL C TER OR INPUT TOO LARGE -- Re=7 
2089 : RETURN ADRY -*CR” -- R2 = NUMBER 
2090 RETURN ADRS . °C -- R2 = NUMBER 
2091 } RETURN ADRE :*PERIOD” -- R2 = NUMBER 
cHe5 006500 010446 CK.DIG: MOV R4,-(SP) :SAVE RY 
20S4 006502 010346 MOV R3°-(SP) -SAVE R3 
2095 006504 d10e46 MOV Re’ -(SP) -SAVE THE MAX. SIZE ON THE STACK 
2096 006506 CL Re :START WITH O 
2097 006519 CLR R3 
2098 O06Si2 oc9S5004 CLR 
20939 0065 14 O04537 006426 JSR RS,CK.CHR sCHECK ONE CHARACTER 
2100 006 14 6$ ‘TLLEGAL CHARACTER 
2101 O06S2e2 006622 9g ‘CARRIAGE RETURN 
210e O06S24 O06614 b$ ‘lle 
2102 O06S26 OOGE1E 7§ das 


O04 
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2108 006530 006534 1$ Pig] .8-3 
l 000004 $: 0 #4,RS : TURN POINTER PAST “CR” & “PERIOD” RET 
is ae re a: ae ae he RUMGER’ #2 ret reemeren 
1 V R3,-(SP) : x2 
2109 006544 006303 ASL R3 U4 
sti? Bak. Ra - #8 
lll (5P)+,R3 * (a )+( #8) = #10 
elle ADD Re, : TE THE INPUT NUMBER 
e113 006426 JS RS’ CK.CHR : CHECK ONE CHARACTER 
siis Sopeee Bien 2 pC ait 
2116 4 4§ “les 
slig Sheers poreaa 3 pict 9-2 
siis 40 BIGHT Q-2 
el 74 71d 3$ TSTB (R1) : A ser” FOLLOW THE “PERIOD” 
1 1910 8$ . & 
21 ? ST (R4)4 - INCREMENT THE RETURN 
2le3 005724 us: TST (R4)+ : THE TURN 
eles 005724 Ss: TST (R4)+ {INCRE T RETURN 
el 0 16 chr R3, (SP) : CK MAGNI BOF oA HE NUMBER 
$187 Ooeeie ett BA Fe BY ENTERED N - 
ele8 006614 005725 gS: TST (RS )+ : INCREMENT RE TURN PAST INVALID RETURN 
2130 OEE SB pe Rane ; 8s: ABD RY, RS : RETURN SR ONTER 
2131 010 9$ MOV R3:Re ‘ENTERED VALUE 
ei 3 TST (SPs s CLE MAX. SIZE OFF OF STACK 
2133 012602 MOV (5P)+,R3 *RESTORE R3 
2134 GO6E30 012604 MOV (SP)4+'R4 “RESTORE RY 
2135 O06632e 011505 MOV (RS),RS i SET RETURN ADDRESS 
6136 006634 o00205 RTS RS : RETURN 
2138 _SBTTL MACRO ROUT 
5138 SBTTL O ROUTINES 
e141 _SBTTL ERROR HANDLER ROUTINE 
2143 8% SEESEREE EEE EERE EEE EE REE EERE REE EREEE RAE RE EEE EEREEEER EERE EES 
2144 :&THIS ROUTINE W T THE ERROR FLAG AND THE ERROR COUNT, 
ei4s : SAVE THE E AND THE ADDRESS OF THE ERROR CALL 
214E j AND gO OT 
2147 : £7 ITCH OP IONS PROV DED BY THIS ROUTINE ARE: 
2148 : #SW1S=1 HAL 
2:49 - #SW13=1 NHIBIT ERROR TYPEOUTS 
2£iS0 : = on RROR 
Stes be amy ‘ a 
;# 
e153 * a ERROR N : ;ERROR=EMT AND N=ERROR ITEM NUMBER 
l SERROR 
512? SOLE SE 104407 CKSWR ;: TEST FOR CHANGE IN SOFT-SWR 
2157 006640 010137 001274 MOV R1, DDRIVE -ORIVE ADDRESS IF ORIVE ERROR CALL 
2158 OO6644 010337 O01e7é MOV N ‘ATTENTION REGISTER CONTENTS 
2153 OO6ESO 0613727 OO136E 001270 MOV FMTOPB+12,DS.CYL. ;CURRENT CYLINDER ADORESS 
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21 
2160 113737 001365 001272 Move FNTDPB+11,0S OS.TRK ;REQUESTED TRACK ADORE SS 
Hh Bees bree PCPs Bere sects 
l 1376 901310 Bay REG+ -« Sp} 
2164 1 l SUB Es} ; é S 
2165 001124 MOV (4P)+ S$GDDAT  ;GET WORD r ’ 
siee 001124 i HOV ‘, jGET. WHICH DIDN’T COMPARE 
e16 BEQ : es TEE THE Las, GO TO ZERO 
a 
sige GBAAGS 178898 «BY. BOYNE SRURT“*Y EBEP‘GN Thngqtireen “we EhPOR Fee 
¢170 14% BEQ : SRO e - waht 
D011 es 
ele : 35 B01 ite 1S: Ince 3 i He SUNT tb NUMBER OF ERRORS 
5173 : ies els MOV (SP) SERRPC eT A ADDRESS OF ERROR INSTRUCTION 
117737 172136 001114 move sas SITEMB ;;STRIP_AND SAVE THE ERROR IT 
cizs eel 172150 BIT #81713, dSWR i$ SKIP TYPEOUT IF SET — 
2178 0047 007044 aOR PC. TYPERR -:GO TO USER ERR 
2i79 l 1 001167 TYPE scRLF - swenrnsiele nsssistes 
S18 BEr808 ons777 apt . 
172132 2s: TST aSWR »:HALT ON ERROR 
¢18¢ 499002 BPL 3$ : > SKIP iF CONTINUE 
2184 104407 CSUR TPT POR Ch IN SOFT-SWR 
aE O31402 001000 172116 3S: BIT #81709, aSWR a pO ERROR ITCH SET? 
13716 001110 MOV SLPERR, (SP) Ht 3 
¢187 : TURN FOR LOOPING 
589 005737 001160 ug: rst SESCAPE si CHECK FOR AN ESCAPE ADDRESS 
5131 013716 001160 ks MOV SESCAPE, (SP) -: FUDGE RETURN ADDRESS FOR ESCAPE 
5185 009002 RTI ; ; RETURN 
Sige 
; THIS TINE S THE “ITEM CONTROL BYTE“ (S$ITEMB) TO DETERM 
5197 j WHICH, E ROR 1S "ah RE REPORTED RET THEN OBTBING, "FROM THE ERROR 
5199 alas t CONEERNING ee ERR 
4 
5501 BO7ONe oS05 — ie a 5 aE RRO 
22e0e 007050 113700 001114 MOVB SITEMB,RO : LE ROMBER a 
2203 007054 005300 DEC RO SEORN NDE 
e203 O86 DEC RO :F INDEX FOR ERROR TABLE 
2205 007 006300 ASL RO 
7062 ASL RO 
2207 007064 O6e700 001626 1S: ADD 
g : #SERRTB,RO :FORM AD 
ec0e 007076 e037 007104 MOV (R0)+,28 Soe RE SSAGE< (EM) oPQINTER 
e210 007076 104401 001167 TYPE SCRLF CARRIAGE RETURN - NUINe Ne 
si Be deat as: "oho = 
ecle ? : W he a POINTER GOES HERE 
e213 mate 012037 007122 35: MOV (RO)+, 4S sBIcK UP DAT a HEADER (DH) POINTER 
097114 104401 001167 TYPE . SCRLF ‘CARRIAGE RETURN-LINE FEED 


O4 
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KSRIES. Pil O4-NOV-77 12:S4 ERROR HANDLER ROUTINE SEG 0042 
007189 AdtdOs us: WORD © ;"DM" POINTER GOES HERE 
0071 12001 S$: MOV (RO)+,R1 if CKUP DATA TABLE (OT) PGINTER 
007 1 1460 BEQ 20s H 
007 1 CLR S T IN TCH 
mag 15002 NOV TOSS Re MBER 5 i a 
Tt 
057136 arth BEQ i7s ° ‘are : ‘hs NUMBER IS O 
0071 005105 COM RS_ 
007142 104401 001167 TYPE SCRLF NORA TBE Re ENS Le FEED 
146 112003 108: MOVB tRO)+,R3 Rielly WORDS TO TYPE 

0071 12004 MOVB (RO)+;R4 octal ¢ etna 
007152 118: ROR RY AL OR ‘Bech 
6007154 103403 Bcs 12$ = 
0071 013146 MOV a(R1)+,-(SP) SAV (Ride SNE OR TYPEOUT 
0071 104402 TYPOC 2G =--OCTAL ASCIIC(ALL DIGITS) 
O37 ies 000402 _ BR 13$ 

7164 013146 / MOV a(R1)+,-(SP) iS yPeSs techs FOR TYPEOUT 
007166 i10440S TYPOS vPE--DECIN AL ASCII WITH SIGN 
posise 6 boTaos 138: BES 14S bi E RANCH _— 
pos tes l 1 020705 TYPE L INSP : YES--TYPE SEPERATORS 
007200 090764 BR {is oh 
Sores BESS po Roreoktn 
borers feces S84082 ere ateah" Sey Roe Neat Reaves.» 
est l BEQ ;BR IF YE BYPASS THE INDENT 
007220 10S COM RS : INDENT? 
007222 1002 BNE 15$ : NO--BRANCH 
007224 104401 020705 TYPE LINSP i YES-— TYPE SPACES 
007630 ‘ e037 007236 1S$: MOV tRO)+, 16% ; NEXT OH 
007236 16S: .WORD O ‘DH POINTER GOES HERE 
Sor Sue ite BRE see ion T Ae Pore. 
Gores e708 000004 op #4, RO INCREMENT THE :0e* poINTER 
007252 A 401 001167 21S: YPE SCRLF ‘CARRIAGE RETURN-LINE FEED 
a aE BRE Se Fe BRANCH 
007 2be 104901 020705 17S: TYPE pbaNSP i VES-c TYPE SPACES 
Dea S58 thes 20S: RESREG ‘RESTORE RO-RS 
007272 000207 RTS PC : RETURN 


.SBTTL TYPE ROUTINE 


: jMEAHENEREREEREEESEAESERNEESEEREAEEED AEM ST TERMINATE WITH AO. 
 KROUTINE 10. TYPE ASCIZ MESSA MESSAGE MUST TERMINATE W WITH A O BYTE. 


:#THE ROUTINE WIL Th hey NUMBER OF olnttes HARACTERS AFTER A LINE FEED. 

; #NOTEL: ONTAI ER TO BE USED AS THE FILLER CHARACTER. 
; #¥NOTEe: SILLS CRONTAIN NS THE “NUMBER OF FILLER ae ERS REQUIRED. 

; #NOTES: SFILLe CONTAINS THE CHARACTER TO FILL AFTER. 





Cc 
Cc 


rururururu 


WWWWWaWWWW) 
= bb bo ee 
WONT FS Wwle-O 


WwW 
= 


rorururorururururururururururu 
WLIW a 

he 

NO W 





i 
Tv 
? 


8 
\ 


ue 
Sone 


SHUG 


007400 
007404 


6 FNTR 
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~ 
na 
“J 
WwW 
N 


a 


Ry 


~_ 
at 
-—G) 
“J 
ie 


g 


eae 


g 
c) 
seus 


a 
tateti, 


8 
Pate 


105037 
0 
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001157 
000002 


00000e 
000011 
000200 


907510 


007444 
001156 


001154 
000001 


007444 
007510 


000040 
007444 
000007 


171500 


000002 
000015 


007510 
0000 1e 


007510 


07-NOV-77 


TYPE ROUTINE 


60S: 


S$: 
6$: 


7$: 


;HORIZONTAL TAB 


8S: 
9$: 


STYPEC: 


1$: 


> #CALL: 
pees USING A 


TYPE 


DECB 
BR 


10:07 PAGE 4S 


TRAP ts 3 a Ba 


, MESAD 


STPFLG 


athe 


(SP)+ 


SCHARCNT 


PEC 
sFttLe. (SP)+ 


SNULL , -( SP) 
1(SP) 

PC, S$TYPEC 
SCHARCNT 

% 
PROCESSOR 
Bc, &} 3p PEC 
87, SCHARCNT 
(SP) 


x 
@LF ,2(SP) 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


ss TS tence A TERMINAL? 

tt AALT HERE IF NO TERMINAL 

; sLEAVE 

>; SAVE RO 

;; GET SS OF ASCIZ STRING 

;;PUSH C TER TO BE TYPED ONTO STACK 
. F IT ISN’T THE TERMINATOR 


I I 
tone aan POP IT OFF THE STACK 


;;BRANCH IF NOT <CRLF> 


si TYP <CR><LF> EQUIV 
TYPE A CR AND L 


3 Cl AR Cun TeR —— 
: T CHARACTER 
;GO TYPE THIS CHARACTER 
2 IT T FOR FILLER CHARS. ? 
NO T NEX 
ar: CHARS. NEEDED 
NULL NEED TO BE TYPED? 


S 
: GO POP THE NULL OFF GF STACK 
YPE A NULL 


Om 


BOP SPACE OFF STACK 
:}GET NEXT CHARACTER 
tWAIT UNTIL PRINTER IS READY 


ne CHAR TO BE TYPED INTO DITA REG. 
31S CHARACTER CARRIAGE RETURN? 
:: YES--CLEAR CHARACTER COUNT 


iif CHARACTER A LINE FEED? 


SEG 0044 


B38 og 


WwW 
~- 


Sst at TAL 


GO4 
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RPO 
l -NOV-77 12:54 TYPE ROUTINE SEG O04S 
007504 001402 BEG STYPEX ae IF YES | 
007506 10See7 INCB (PC)+ ;;COUNT THE CHARACTER 
007510 000000 SCHARCNT: . WORD t  EARRACT ER COUNT STORAGE 
007Sie 000207 STYPEX: RTS PC 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


. « SESSESEEREERAEESEEE ESHER SESE AERERERARAAAERSERAAARAEREREAAEE 
tkT THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
-#OCTAL (AS C11) ) NUMBE YPE I 

3 #STYPOS---EN ER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


rurururururururorururururururururu ee 
Me Se Se eet mh et wt tt 


4.454 
£Wfur-OwW 


cee 


5a 


: 


: 


arenes 


aggeeee 


rm 
= 
© 
< 


» CALL: 

* MOV NUM, - (SP) ; ;NUMBER TO BE TYPED 

~ TYPOS -CALL FOR TYPEOUT 

* BYTE tiNel TO 6&6 FOR NUMBER OF DIGITS TO TYPE 
* BYTE ;;M=1 OR O 

. ;; l=TYPE LEADING ZEROS 

. -:O=SUPPRESS LEADING ZEROS 


5 EO ne Sevic HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
Mee OR S$TYPOC 


;NUMBER TO BE TYPED 
SE CALL FOR TYPEOUT 


| SSTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


- #CALL 
: ; NUMBER TO BE TYPED 
: a TYPOC ::CALL FOR TYPEOUT 
14% 017646 STYPOS: MOV a(SP), ; s PICKUP THE MODE 
116637 MOVB 1(5P). L >? LOAD ZERO FI LL suite 
112637 MO (SP)+ +1  $;NUMBER OF D TO TYPE 
3¢ 0627 16 ADD se, (SF :: ADJUST RET TABORESS 
40 1127 STYPOC: MOVB #1, »:SET T RO PILL SWITCH 
46 112737 MOVE 88° SOMO tt SET FOR sae ) DIG 
SY 112737 STYPON: MOVB #5, $0 ssBET. THE ITERATION ie NT 
010346 MOV R32’ -( 
4 O10446 MOV RY’ =< Save Re 
010546 MOV RS; -( 7 
70 mtn MOVE SOMODE > GET THE NUMBER OF DIGITS TO TYPE 
76 ADD ; i SUBTRACT - IT FOR MAX. ALLOWED 
110437 MOVB SAVE IT 
1137 MOVB ::GET THE | RO nbikt SWITCH 
1 MOV i PICKUP T INPUT NUMBER 
16 005003 CLR ‘CLEAR THE OUTPUT, WORD 
006105 1S: ROL : RO ATE MSB INTO “C* 
000404 BR -GO DO 
O06 10 2s: ROL tT FORM THIS DIGIT 
105 ROL 
105 ROL 
Bi 0803 MOY 
006102 33: ROL ::GET LSB OF THIS DIGIT 


CZRJBBO, 
CZRJBB. 


2414 


— b+ =p 
WOnmiun 


TPES SELLE SE 
Wwru 


RPOY/’S“6 FMTR 
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105337 
100016 
27 


001403 


: ? 
WO 
NN 


: 
Ree 


se 


> 
FES. 

-~ 

Mow 


é 


OOO 
— 
O00 


oO 
oO 
oO 
oO 
oO 
Oo 


R 
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l2:S4 
007740 
177770 


o0000e 


O20200 
000020 


ooooss 


010156 
000040 


010146 


O4 


O07-NOV-77 10:07 PAGE 47 
BINARY TO OCTAL (ASCII) AND TYPE 


DECB _ 


SEG O04 
;;TYPE THIS DIGIT? 


BPL -:BR IF 
tt 8177770, R3 i GET RI OF JUNK 
oma tga aoa 
ug: INC RY + BON? T SS ANYMORE 0’S 
BIS #’0,R3 -:MAKE THIS DIGIT ASCII 
ss: Bie 43s. 8 Bs 3k A teal 
- TYPE ” G0 YPE THIS DIGIT 
BES $0 -:BR IF TO DO 
BLT % 3 7BR IF DONE 
INC 4 :: INSURE LAST DIGIT ISN’T A BLANK 
BR 2s es THE LAST DIGIT 
6S: MOV (SP)+,RS 3 3 5 
Moy «CSP D8° RS iiReSt RS 
MOV 2(SP),4(SP) + gE? OnE St STACK FOR RETURNING 
ney (SP)+, (SP) 
8S: .BYTE O 5 BTU FOR ASCII DIGIT 
“BYTE O | TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE O -OCTAL DIGIT COUNTER 
SOFILL: .BYTE O tt ZERO FILL SWITCH 
SOMODE: .WORD O ::NUMBER OF DIGITS TO TYPE 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
jREHSHAEERERESELERESSEESEAE ENE EE AREER EDT ESO AORY NUMBER TO A S-D1 


SETHIS ROUT INE IS U HANGE ah 1g-B1T BINARY NUMBER TO A S-DIGIT 
+, DEC ECIMAL | Heer) PE IT. DEPENDING ON WHETHER THE 
S -POSITIVE OR NEGATIVE PACE, OR 8 A MINUS SIGN WILL BE TYPED 

: SBEF ORE IGIT OF Ive spa ADING ZEROS WILL ALWAYS BE 
j #REPLACED We ITH SPACES. 
S MOV NUM, -(SP) ::PUT THE BINARY NUMBER ON THE STACK 
* i TYPDS -:GO TO THE ROUTINE 
S$TYPDS: 

MOV RO, -( SP) -;PUSH RO ON STACK 

MOV R1,-(SP) -:PUSH R1 ON STACK 

my Bainise} ey On Erect 

MOV RS» - 25) : : PUSH oN ST AeK 

MOV #20200, -(SP) ::SET BLANK SWITCH AND SIGN 

MOV 20 (SP), RS : GET HE NPU R 

BPL l 8 IF UT IS POS. 

NEG RS ; MAKE THE BINARY NUMBER POS. 

MOVB #’-,1(SP) ::MAKE THE A cil NUMBER NEG. 
1$: CLR RO :: ZERO T CONS ANTS INDEX 

MOV $9081 « R3 : : SETUP THE OUTPUT POINTER 

MOVB (R3)+ jiSET T IRST CHARACTER TO A BLANK 
2$: CLR Re ::CLEAR THE BCD NUMBER 

MOV ae ::GET THE CONSTANT 
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40 910016 105 3$: SU R1, RE ::FORM THIS BCD DIGIT 
41 Ol BL 4 - > BR IF DONE 

ewe 9100¢e 2 INC Re : : INCREA HE BCD DIGIT BY 1 
4 l BR 3¢ 

e444 O1 10S 4g: ADD R1,RS ::ADD BACK THE CONSTANT 

e44s Ol 702 TST Re -:CHECK IF BCD DIGIT=0 

e446 Ol BNE S$ 8 L 

2447 Ol 10S71 TSTB (SP) s STILL DOING LEADING 0’S? 

e44s Ol 0 I ; - BR YE 

e44s Ol 1 6 ss: ASLB (SP) es ? 

e4sO o1004e 10 BCC -:BR IF NO 

24S1 O10044% 116663 000001 177777 MOVB 1(SP).-1(R3) :: YES--SET THE SIGN 

e4Se 0100S2 OS2e702e O00060 6$: BIS #’0,Re es g HE BCD DIGIT ASCII 

24S3 + (0056 O5670e 000040 7$: BIS 8’ Re -:MAKE IT A SPACE If NOT ALREADY A DIGIT 

e4s4y Ul 11022 MOVB Re. [R3)+ -:PUT THIS CHARACTER IN THE OUTPUT BUFFER 

24SS 010064 005720 TST (RO)+ -: JUST INCREMENTING 

e4S6 010066 O20027 O00010 CMP RO, #10 -: CHECK T INDEX 

e4S7 010072 O02746 BLT eg -:GO DO THE NEXT DIGIT 

24Ss 010074 003002 BGT $ ::GO TO EXIT 

24s3 states 01050e MOV RS,Re ;;GET 

2460 O101 000764 BR bs - GO CHANGE 0 ASCII 

2461 010102 105726 g$: TSTB (SP)+ ::WAS THE LSD THE FIRST NON-ZERO? 

cube 010104 100003 BPL 95 -:BR IF 

24 010106 116663 177777 177776 MOVB -1(SP),-2(R3) is YES-= THE SIGN FOR TYPING 

2464 010114 1050 9S: CLRB (R3) -:SET THE TERMINAT 

2465S 010116 bi See MOV (SP)+,RS -:POP STACK INTO RS 

2466 010120 012603 MOV (SP)+'R3 -:POP STACK INTO R3 

2467 O1lOlee Ole60e MOV (SP)+'R2 -:POP STACK INTO Re 

2468 010124 012601 MOV (SP)+'RI -:POP STACK INTO RI 

2469 010126 012600 MOV (SP) RO -:POP STACK INTO RO 

2470 O10130 104401 o101S6 TYPE DBLK . T THE NUMBER 

2471 010134 O16666 O00002 oD0004 MOV 2(SP),4(SP) :: ADJUST THE STACK 

2472 010142 O12616 MOV (SP)+’ (SP) 

2473 010144 oO00002 RTI :;RETURN TO USER 

2474 O01014% 023420 SOTBL: 10000. 

2475 010:59 001750 1000. 

e476 010152 000144 00 

2477 010154 9o0n01e 10. 

378 010156 o00004 S$DBLK: .BLKW 4Y 

ei30 .SBTTL TTY INPUT ROUTINE 

Hy |" * cart’ | paeeasieeeee enema 
~~ s « a 

2464 O10166 coD000 STKCNT: .WORD O ;:NUMBER OF ITEMS IN QUEUE 

2485S 010170 oo0c00 STKQIN: .WORD 0 :: INPUT POINTER 

2486 910172 90 $TKQ ORD O :: OUTPUT POINTER 

2487 010174 900007 STKQSRT: .BLKB 7 :: TTY KEYBOARD QUEUE 

2488 010203 TKQEND= 

e189 010204 EVE 

249] -#TK INITIALIZE ROUTINE 

e492 -*#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 

e433 -#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 

EHS ; #CALL: 
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BB.P11  O4-NOV-77 12:54 TTY INPUT ROUTINE SEG OO4E 

5 JSR PC, STKINT 
e437 ; RE TURN 
5200 Ol Z BIDIGE oO o.9 STKINT: CF STKQIN {TROVE THE: STARTING AGORESS OF 7 HE 
g2p0 i 1? i 535 15t50 Bibi 17e MOV i Sh ©: QUEUE INTO THE INPUT & OUTPUT POINTERS. 
2502 010824 012737 010254 MOV aSTKSRY a8] C ;;INITI Piz THE KEYBOARD VECTOR 

Bibs 5 170 o3 ao00ee ney ssteae vec c+8 tt PEARS : FLAG 
777 170672 MOV #100, aSTKS : ENABLE TTY KEYBOARD INTERRUPT 
250e pt bsee pA5 50> oe RTS PC see TO CALLER 
2508 :*#TK SERVICE ROUTINE 

: TH WILL SERVICE THE TTY KEYBOARD INTERRUPT 

210 teY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
il QUEUE . 

° a TER A “CONTROL-C” (¢C) STKINT IS CALLED AND 
e313 t SUPON RETURN EXT? 12 MADE TO THE “CONTROL-C” RESTART ADDRESS (@CNTLC) 
2S1S 010254 117746 170666 $TKSRYV: MOVB O$TKB -(SP) i CKUP rite CHARACTER 
2516 010260 042716 177600 8tCl 24 (SP) + STRIP THE : 
sig Bitese else Ome pe ig Bona" eho" 

25193 basse 104401 011367 TYPE CNTLC 3 YPE A ONTROL -C (#C) 

2520 0102 004737 010204 ISR PC. STKINT :: INIT T KEY YBOARD 

Sel bt oS08 005726 TST (SP) : : CLEAN 

®Se2 010304 000177 170770 JMP JCNTLC ;;CONTROL C RESTART | 

=3¢3 piastt ates 000007 1S: oe (SP), #7 get ee A CONTROL G 

5e5e 010316 O22737 O00i176 001140 CMF SSWREG, SWR -:1S SOFT-SWR SELECTED? 

e5cb 010324 001500 BEO S$ -:G0 TO CHANGE 

2528 010326 2s: 

2529 010326 022737 000007 010166 CMP #7, STKCNT ::1S THE QUEUE FULL? 

cose ibsae TpaNol OD1162 OYBE _ = RING Hue TTY BELL 

e536 01034¢ 005726 TST {oP)+ 3s eLEan CHARACTER OFF OF STACK 
e534 Bibs Oei63? co00023 3S: cn Pep). 23 its 1S ita CONTROL -S” 

2536 pt paes ertthag 170564 ate a$TKS Breas ee ry Kk YBOARD INTERRUPTS 
2537 Ol 005726 TST (SP)+ : CLEAN 

2538 OL 105777 170SS6 31S: TSTB asTKS A T FOR a on 

2539 O10 100375 BPL 1$ i iLO UNTIL ITS THERE 

2540 Ol Ad 170SSe2 MOVB Ke -(SP) 8 T . TER 

254i Ol e716 177600 BIC #10177, (SP) : MAKE IT 7-BIT ASCII 

seus Bipups poisee i ES ACH IF ONO 

eos bare 12777 000100 170530 MOV #100, a$TKS ; ; REENABL TTY KEYBOARD INTERRUPTS 
2546 O10416 010166 32S: INC STKCNT ::COUNT THIS CHARACTER 

eo7 Bi oase Oe Sb 000140 CHP (SP), , #140 ji1S 17 UPPER CASE 

2549 tet 0216 000175 CMP (SP), #175 -:1S IT A SPECIAL CHAR? 

2550 010434 003002 BGT :§ BRANCH IF Y 

2551 010436 042716 ooDo4o BIC #40, (SP) ‘MAKE IT UPPER CASE 


O4 
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CZRJBB.P11 O4-NOV-77 12:54 Y INPUT ROUTINE SEG 0049 
Bia «AdESS> «10190 4S: HOVE SEAT SSTKGIN 1 ARO TE THE POINTERS | 

2ss4 010452 0237e7 010170 010203 CMP STkaiN, SSTKQEND ;;GO OFF THE END? 
522? Bi Byes po 1093 010174 010170 Ene #STKQSRT, STKQIN | RRO EY THE POINTER 
e557 010470 900002 S$: RTI RETURN 
esss | USOrTunme “SuI TCH REGISTER CHANGE ROUTINES 
seri 2g | EEE FAL TERE Ht 
2Sb2 IN SMITCH REGISTER TRAP 
ese 910472 9227 37 000176 001140 éekeu "OPERATING Th Sun a a SOF T-SUWR SELECTED 
2566 bt peas titaay 170436 STB LY es a A CHAR WAITING? 
2567 O10506 100121 BPL 1S$ -: IF NOT, EXIT 
2568 010510 i17746 170432 MOVB astK : -(SP) -: YES 
25639 010514 042716 177600 BIC #0177, (SP) ::MAKE IT 7-BIT ASCII 
2570 010520 O2lb2e7 000007 CMP (SP), #7 . 3 - IT A CONTROL-G? 
2571 010524 001300 2s :: IF NOT, PUT IT IN THE TTY QUEUE 
e576 . Exit 
2574 AZONTROL 1 PASSED TO, THIS POINT FROM EITHER THE TTY INTERRUPT 
2s7s  KCONTROL Is PASSED 10. TH bare POINT HE TTY INTERRUPT SERVICE 
5258 3 ROUTINE -# BEING T PUP, ace Wot BEING Rea EA TED. " 
2578 010526 123727 001134 oo000! is: CMPE NB AU TOB “ARE WE 
2573 010534 001674 Q Hae 
2580 010536 005726 ST (SP)+ + EAR ¢ ROL-¢ OFF STACK 
2581 010540 004737 010204 JSR PC. STKINT a TRG T QUEUE 
2582 010544 170374 CLR astKs ay KETHORRO INTERRUPTS 
e583 O010SS0 112737 000001 001135 MOVB #1,SINTAG ERRUPT MODE INDICATOR 
2eS8S O10SS6 104401 011401 TYPE , SCNTLG :sECHO T CONTROL =G (16) 
2586 O10S62 104401 011406 SGTSWR: TYPE SMSWR ‘f ger CONTEN 
2587 010566 013 000176 MOV aaREG -(SP) Scrat fs NOT 
2588 Ol 1044 TYPOC ACCEL CALL DIGITS) 
2589 610574 104401 011417 TYPE , SMNEW OMPT vBe=-5 SWR 
2530 010600 19S: CLR ~(SP) pas COUNTER 
2591 01060e o0S046 CLR -(SP) 
2592 010604 105777 170334 7$: TSTB a$sTKS C WERE? 
2533 0106iG 100375 BPL 7§ SIF NOT TRY AGAIN 
2595 010612 1177 170330 MOVB aSTKB, -(SP) : sPICK CHAR 
cose pIDELE aor ie 177600 BIC efciee, ¢ P) -:MAKE IT 7-BIT ASCII 
e538 010622 021627 000003 CNP (SP), #3 1S IT A CONTROL -C? 
e203 B10bS5 OWT 011367 yee Sori ee tcl Brnmo1-c «1c1 
e60e D10640 1 3787 001135 o0000i ChB SINTAG, #1 ; ;REENABLE TTY KEYBOARD INTERRUPTS? 
Sar bt bees po L003 000100 170266 MOV #100, d$TKS -: ALLOW TTY KEYBOARD INTERRUPTS 
e605 010656 000177 170416 8s: IMP JCNTLC *:CONTROL-C RESTA 
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00000e 
177776 
001166 


000004 
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011060 


010166 


010166 
177074 
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7-NOV-77_ 10:07 PAGE 51 
TTY INPUT ROUTINE 
9S: th (SP), #eS ii BRanc IT _" ror 
TYPE — z 3 ECHO © CONTROL =U <u) 


ey SOUS 
He v’S TRY I AGAIN 


10$ CMP (SP),#1S 7:IS IT A <CR>? 
ene i°3,) RRC TT SHE FIRST CHAR? 
BO tig t+ CRACK iF YES 
MOV 2(SP),aSWR 7; SAVE NEW aun 
ft #6 --CLEAR UP STACK 
14 TYPE scCRLF **ECHO <CR> AND <LF> 
CMPB SINTAG, a1 . 8 SENABLE TTY KBD INTERRUPTS? 
BNE 1S$ : : BRANCH NOT 
V 8100, a$TKS ; {RE-ENABLE TTY KBD INTERRUPTS 
1S$: RTI : >RE TURN 
— te eae SEER Hae 
BLT 18s ° tt BRANCH TF YES 
i, fo : > CHAR H E 
IC 138 (SP)+ STRIB-OFF II 
TST 2(SP) °:1S THIS THE FIRST CHAR 
BEG 17$ es 'H 
ASL (SP) 7:NO, SHIFT ey 
ey (SP) HAR OVER O MAKE 
ASL (SP) .8 OOM NEW ONE. 
17$: INC 2( SP) : s KEEP COUNT OF CHAR 
BIS 5g(SP), (SP) 33 IN NEW CHAR 
8 7 -:GET THE NEXT ONE 
18S: TYPE SQUES *TYPE ?<CR><LF> 
BR 20$ : ESIMULATE CONTROL-U 
.DSABL LSB 
eee er tant. tiene tameartin tn aa 
j ATHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 
: RDCHR ;GET A CHARACTER FROM THE QUEUE 
* a RETURN HERE CHARACTER Is THE STACK 
* i -:WITH PARITY BIT STRIPPED OFF 
SROCHR: MOV (SP). -(SP) hia DOWN THE PC AND 
MOV 4(SP5,2°(SP) 
CLR 4(5P) READY FOR 8 TSHARACTER 
CLR -(5P) get 
MOV #64$, -(SP) : > PUT De ON *BTRCK 
a RTI : > POP NEW Pe AND P 
1S: TST STKCNT ::WAIT ON A CHARACTER 
DEC STKCNT ;:DECREMENT THE COUNTER 
MOvB DSTKQOUT,4(SP) +:;GET ONE CHARACTER 


SEG 9050 


O04 
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BR 
7 : TST ) T KEY SET 
Orbs oe ie ee eP Mac 
1 000134 011356 MOVB \,9$ 8 Gg K SLASH 


CZRIBB.P11 O4-NOV-77 12:54 Y INPUT ROUTINE SEG 00S: 
4 011100 005237 010172 INC $TKQOUT ‘UPDATE THE POINTER | 
sees 011104 023727 010172 010203 cn TKQOUT, eSTKOENO, 4210.31 F OF THE END? 
eee; BLS 37 010174 010172 ji Mov #STKQSRT, STKQOUT ; F the POINTER 
2669 a ; ‘geadd _., Keldpemeemnsomenee’ " .," emiteremnettsesseitic 
2670 jATuIs ROUTINE WILL INPUT A STRING FROM THE TTY 
267 ‘= IN 8 STRING FROM THE T 
: Ese ST CARGETER. WILL BE ON THE STACK 
e678 + — .3T NATOR WILL BE A BYTE OF ALL O'S 
ae: uN OG) SIR wenn a 
? 11360 1$: MOV TTYIN.R3 . 8 
556 ae Otter 2§: CHE agit N+7, R32 ape 
sea? BLISS 1Bist Ris, SHES Head bve uamncren eon THe 1 
1 V + 
5683 125713 000177 10S: MPB #177, {R3) He 7a A RUBOUT 
2685 DOS? i TST His [Pho THE FIRST RUBOUT? 
SBS ie 900134 011356 Hove #5/98 ‘Back SLASH 
Ba erie 177777 te MOV b-1, (SP) att THE RUBOUT KEY 
seat b26327 011360 i sie Ra, esTrvin 1 Breck enerY” 
? (R32), 9S TYP TO ST YPEOUT THE DELETED CHAR. 

5 1bai8 bi1see ire 2S iB Vente R CHAR. 
Pb99 ‘ 

- CLEAR T T KEY 
a t 000025 7$: KKB ERS) + LE TER RUCTRE U? 
5702 oe. ' :iGR_IF NO : 
6703 1 011374 ty NTLU . 7A GONTROL u” 
2705 [eer is oo0022 gs: CMPR 2s w22, (RB) iB ACTER A “ER”? 


+3 i CLEAR TH as error pe 


1 
I 

1 

le 

; 

: 052260 TYPE STTYIN 53 TY THE TNPUIT ERI NG 

000747 001166 us: Gr or § ues Hs De ANOTHER CHACTER 


Be ee et ee ee dae ee ee ee ee ee ee ee ee he Pe ee ee ee ete ee ee ee 


cee Sh ee eee 
d 
We no" N= 


5515 als 011356 3S: Rove ths). 9s | is EER OTHE C A fer i 

ae eae aoodis gee B45, (Kars HG P IF OR NOT RETURN 

cre biiaee jome) b01170 eae eee MEIN Le 1S 

2719 005726 TST teB)4 tS CLEAN RUBOUT PREY FROM THE STACK 








C2RJBBO. RPOY/S’G FMTR MACY1! 30(1046) _O7-NOV-77_ 10:07 PAGE S3 
ESR TBE Pll BacNoV-77 12:34 TTY INPUT Rod Tine SEQ GOS2 
a 11 MOV (SP)+,R3 » RESTORE R3 
781 Olt MOV (SP), -(SP) : > ADJUST THE STACK AND PUT ADDRESS OF THE 
7 : il oo0002 MOV 4(SP) 2(SP) . 8 FIRST ASCII CHARACTER ON IT 
g O11 nee ee 000004 MoV eSTTYIN, 4(SP)  aaare 
2725 O11 9$: _BYT 0 23S FOR ASCII CHAR. TO TYPE 
7 il iE : : TERMINGT 
535 611320 STTYIN: .BLK g ti Re VE 7 BYTES FOR TTY INPUT 
e7 Bi ise. 0008s CNTLC: .ASC ete st > ;;CONTROL “C® 
7 113 j ENTLUs .ASC Aes »<}e> ;;CONTROL “U" 
730 Bt tape So BONO LS CNTLG: .AaSsC 4*G/~415><le> >:CONTROL "G 
731 O114O6 523 O20l22 SMSWR: .ASC <15><12>/SWR = 7 
73e O11414 0 
2723 011417 047040 OS3SO0S SMNEW: .ASCIZ 7 NEW = / 
ec3e 011424 900040 
e738 _SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
272328 53 REGGE ERR RREEE EEE SERRE RAAELELERELEKALELE 
2739 j ATHIS ROUTINE Is USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
Sout hee 
2742 : i MOV -(SP)  ;;FIRST ADDRESS OF ASCIZ STRING 
5745 7 JSR SR ISCUPRS 
ae 
114 1 SSUPRS: MOV RO, -( SP) ;;SAVE RO 
coup Ot 1w3e C004 MOV 4(SP), RO : PICKUP THE POINTER 
SE: be = is Be ag Bl 
2750 O1144 2227 000060 C 8’0, (RO)+ He tis aN ASCII “O" ? 
ores Biides opes00 25 BEG 43 BR te By oy 
AC a ieee ei 
2755 011460 g09000 3S: .WORD O js RBCIZ OINTER GOES HERE 
2755 01146e 012600 MOV (SP)+,RO a 
e757 O11464 Olesble MOV (SP)+, (SP) es T THE STACK 
S728 011466 000207 RTS PC 8 URN 
5760 _SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 
2782 si AG Ab a ab 0b A AG A ab aE a a a a a A a a a a a a a a a a a a a a a a a Ha 
2763 j ATHIS ROUT INE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
eee i SCACL ' a ; 
e768 ; MOV NUMBER, = (SP) 5 PUT BINARY NUMBER ON THE STACK 
768 * a RETURN ‘ : § EOORESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
2770 
27 11470 0616637 011520 $SB2D: MOV 2(SP) --SAVE BINARY NUMBER 
e778 rete 274 Bt i bee MOV a18,-t5P) Ser Po NTER . anti 
g355 DILeDE eerie O0000S 2D te OEE oa ee THARaC TERS 
2775 O11Sie Ol2e666 oco00e MOV (SP)+,2(SP) : PICKUP POINTER 


CZRIBBO RPO4W/S’6 FMTR MACY11 30(1046) 07-NOV-77 10:07 PAGE Se 
CZ2RIB8.P11 O4-NOV-77 12:54 SINGLE LENGTH BINARY CIMAL ASCIZ ROUTINE SEG 0053 


1151 ? RTS PC ; s RETURN 
51 1238 pB0000 ooo0000 1S: WORD 0,0 ; 
_SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


.3 SHRKKRSSSKKSSSSSRERKESSSRRAEESRESRAERSERHARRRAAERERARARERERERARAES 
j ATHIS ROUT NE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 





: DEC MAL II) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
irene 
: a MOV SPNTR, -(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
: a JSR Pc, as$0B82D 
: RETURN ;: THE FIRST ADDRESS OF ASCIZ 
::IS ON THE STACK 
01:524 104412 $0B2D: SAVREG :;SAVE REGISTERS 
Oi 1526 16602 oo000e2 MOV 2(SP),R2 i ; PICKUP THE DATA POINTER 
11532 0127 011704 MOV SSDECYL. RO : > GET RODRESS OF “S$DECVL” STRING 
011538 10066 o00002 MOV RO. 2 SP} : : PUT AODRE S OF ASCIZ STRING ON STACK 
o1i54 lee0l MOV (Re)+,R1i ::PICKUP THE BINARY NUMBER 
11544 ieede MOV (Re)+'R2 
2738 01154 O1 12 011622 MOV it G. 4s ;:SET UP TO DO 10 CONVERSIONS 
Fa 011554 O1 116 MOV NPWR. RY :: ADDRESS OF TEN POWER 
2800 O11560 O1 011636 MOV SSTNPWR+2, RS 
2801 011564 1$ CLR R3 :;CLEAR PARTIAL 
2802 Ot 196 401 2$ SUB CRY), Rd :: SUBTRACT TEN POWER 
coos 11 61 S (RS) ,Re 
280s Bti Baas ae 3$ -:BR IF TEN POWER TO LARGE 
so Oil INC ay -:@DD 1 TO PARTI 
5808 Olt 1 35 en “Buys. RI + OF ORE SUBTRACTED VALUE 
28039 011604 Abe Re 
2810 O11 ADD (R4)+, Re 
e811 1161 CMP (RB) + (RS)+ ::MOVE TO NEXT TEN POWER 
281 1161 000060 BIS 8’O.R3 *: CHANGE PARTIAL TO ASCII 
2813 O11616 MOVB R3. (RO)+ -: SAVE IT 
2814 Ol! DEC (Pt )+ tt BONE? 
2B15 O1L 4§: -WORD O 
2816 O11 1357 BNE 1$ -:BR IF NO 
2817 O1l6e6 105020 CLRB (RO)+ : : TERMINATOR 
2818 011630 O44 13 SREG > RESTORE REGISTERS 
2819 011632 R PC : RETURN 
2820 Oil 45000 STNPWR: 14500 *:1.0£09 
[Bel 011636 b3eb 32 35632 
2B2e2 011640 160400 160400 ;:1.0€08 
2Be3 011642 6S 2 
e8e4 116us 43200 113200 :;1.0€07 
csr 011650 041100 041100 >: 1.0E06 
2827 O116 17 1? 
116 - 2 40 103240 ;;1.0E05 
11660 9023420 23420 »:1.0£04 
Ollé6e ogco00d 0 
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3 
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pieee = B8daa0 
011670 000144 
1187 
11674 
11 
ll j 
Gil 000000 
011704 O00014 
117 
Bt i352 010046 
011722 O10146 
011784 O10e46 
117 10346 
011730 O10446 
01173e 010546 
011734 OL B66 000022 
Bt tsde ptEeYe 
011750 O16646 000022 
011754 oo00002 
bt i see 012666 000022 
011762 O12e666 O00022 
ll 12666 O00002e 
11 1e666 000022 
11 1 
912900 012604 
01 012603 
612004 0ie6b0e 
l 012601 
012010 012600 
Cle0ie oa0000e2 


COS 


DOUBLE LENGTH BINARY f6 BECIMAL ASCII CONVERT ROUTINE 
he -:1.0€03 
144 551.0602 
fe ;;1.0€01 
;;1.0E00 


SDECVL: .BLKB le. ;;RESERVE STORAGE FOR ASCIZ STRING 


.SBTTL SAVE AND RESTORE RO-RS ROUTINES 

ss HRERREESESEREKRFHERHEFARE LEER ES HPRRREHRERHEREREREHRKRAESRHEED HEHE D REESE 
- SAVE RO-RS 

> CALL: 

;% SAVREG 

; UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

: #TOP---(+416) 


:% +2---(4+18) 

-% +4---RS 

% 4+6---RY 

% +8---R3 

:#+10---Re 

;#+1e---R 

; #+14---R 

VREG: 

—_— MOV RO,-(SP) ;:PUSH RO ON STACK 
my usziSe} HEU BY Set 
MOV R3,-(SP) srt ES ON STACK 
Moy soe’ tp StBueH Re ON STACK 
MOV 22tsP),-(SP) -:SAVE PS OF MAIN FLOW 
roy Stab}: (8b} Leave Be Se BRIN FLOM 
Mov 22( SP)’ -(SP) -: SAVE PC OF CALL 

;#RESTORE RO-RS 

inecacc.e* 
"MOV (SP)+,22(SP) ; RESTORE PC OF CALL 
my teeta tees FIRST Oe OF ON roy 
MOV (3P)s: 5 P) + TORE ps Se MAIN FLOW 
MOV (SP i+, ;;POP STACK INTO RS 
MOV (SP)+,R4 -:POP STACK INTO RY 
MOV (SP)+;R3 -:POP STACK INTO R3 
MOV (SP)+>Re ; : POP ST K INTO Re 
MOV (SP)+'RI -:POP STACK INTO RI 
MOV (SP)+'RO ::POP ST INTO RO 


SEG 9054 


DOS 
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CZRIBB.Pi1 O4-NOV-77 12:54 TRAP DECODER SEG o0Ss 
2988 .SBTTL TRAP DECODER 
LTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCT? 
2891  STHIS UROUTINE WILL PICKUP OWER BYTE OF T CTION 
e83¢ ; KAND ree od r9 I ROUGH T FOR THe "31 ART ING. ADDRESS 
SI _ ROU TINE. HEN USING THE RESS OBTAINED IT WILL 
34 } G0 TO THAT ROUT 
2296 912014 010046 | STRAP: MOV - :: SAVE RO 
2897 012016 O16600 o00002 MOV BTeP) RO -:GET TRAP ADDRESS 
Sees OtSHS4 Si ioOD MOVB (ROD RO | OO eT GHY BYTE OF TRAP 
61 SaSe bo6300 ASL Ro Bee TION FOR FNDEXING 
2301 012030 016000 012050 MOV STRPAD(RO),RO ;;INDEX TO TABLE 
e302 012034 9000200 RTS RO -:GO TO ROUTINE 
2904 
e305 ;: THIS IS USE TO HANDLE THE “GETPRI” MACRO 
Saye 012036 O11646 STRAP2: MOV (SP).-(SP) ::MOVE THE PC DOWN 
e308 012040 O16866 o00004 xn00Ce MOV 4<(SP},2°¢SP) --MOVE THE PSW DOWN 
e303 012046 oo00n2 RTI -:RESTORE THE PSW 
oii .SBTTL TRAP TABLE 
2913 sa THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
eta “BY THE “TRAP” INSTRUCTION. 
e316 : ROUT INE 
2918 0120S0 012036 $TRPAD: . STRAP2 
23919 O12e0S2 007274 $TY : : CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
2920 012054 007540 TYP ::CALL=TYPOC RAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
2921 Ol 007514 TYP : :CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZERO 
2922 012060 007554 STYPON ;;CALL=TYPON TRAP+4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL} 
e323 012062 007742 STYPDS ;;CALL=TYPDS TRAP+5(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
23925 012064 010562 SGTSWR ;;CALL=GTSWR TRAP+6( 104406) GET SOFT-SWR SETTING 
ca5> 012066 0610472 SCKSWR ; ; CALL=CKSWR TRAP+7 (104407) ST FOR CHANGE IN SOFT-SWR 
2928 012070 011034 SROCHR | -CALL= =ROCHR TRAP+10( 104410) Ty Ty TYPEIN CHARACTER ROUTINE 
2929 012072 011124 $ROLIN ; }CALL=ROLIN TRAP+11( 104411) TTY TYPEIN STRING ROUTINE 
2930 012074 011720 SAVREG ;;:CALL= G  TRAP+12(104412) SAVE RO-RS ROUTINE 
e331 012076 011756 SRESREG ;;CALI_= ES G  TRAP+13(104413) RESTORE RO-RS ROUTINE 
Sap .SBTTL SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 
2937 -COPYRIGHT (C) 1976 
2938 ‘DIGITAL EQUIPMENT CORP. 
2939 ‘MAYNARD, MA 01754 
eae AUTHORS S JIM LACEY’CHUCK HESS 
2394/2 5 SERRE ERRERESRS AEE REER RRA EERASERERAERERA EHR EERHRELERARRKG 
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SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


OPINT: .BYTE QO sDRIVE O 
.BYTE : qty 3 
BYTE ‘ORIVE 3 
’ 
YT & i DRIVE 4 
BYTE O sDRIVE S 
BYTE OQ sDRIVE 6 
BYTE O -DRIVE 7 
: TABLE OF PENDING QUAL PORT REQUESTS 
-DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
: DPRQS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 
DPRQS: .BYT 0 ORI 0 
.BYT 0 i DRIVE 1 
-BYTE O sDRIVE 2 
YT 0 3 DRIVE 3 
YT 0 sDRIVE 4 
BYT 8 -DRIVE S 
.BYT -DRIVE 6 
-BYTE O ;ORIVE 7 


: TR T FLAG (TRNSWT=1 WORD) 
—"s tt: I 5 ONE QUEUE. IT WILL CONTAIN THE ADDRESS OF 


S 
“DPB” OF THE 1/0 OPERATION. 
TRNSWT : ‘WORD 0 


ARCH T KEYS (SRCHWT=1 WORD) 
ee WATS . a‘ ONE WORD QUEUE THAT WILL CONTAIN A KEY _FOR_EACH OF 
: THE IVE S THAT ARE PERFORMING A SEARCH COMMAND FOR THE [70 
sREQUEST THAT IS AT Mss TOP OF THEIR REQUEST QUEUE. 
“EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR ORIVE O 
SRCHWT: .WORD O 
;RPO4/S/6 fl Na ACTIVE FLAG (ACTORV=1 BYTE) 
ACTORV=0 IF DRIVER IS INACTIVE 
FACT DRV>O IF DRIVER IS ACTIVE 
ACTORV: .BYTE O 
TWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
gard ¥ actsth= TF OOF THARE TIMER ROUTINE IS INACTIVE 
ACTETROO IF SOFTWARE TIMER ROUTINE IS ACTIVE 
ACTSTR: .BYTE O 
;UNLOAD FLAG (ULDFLG=8 BYTES) 
;ULDFLG=0 IF NO UNLOAD COMM 
sULDFLG>O IF UNLOAD COMMAND ann PROGRESS 
-ULOFLG<O IF UNLOAD COMMAND IN WAIT QUEUE 
ULDFLG: .BYTE OQ ;ORIVE O 
-BYTE 0 ‘DRIVE 1 
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YT 0 : DRIVE 2 
.BYT 0 -DRI 
. BYTE ;ORIVE 4 
YT ;DRIVE S 
.BYT sORIVE 6 
.BYTE sDRIVE 7 
;LOOK AHEAD COUNT (LACNT= YTES) 
TRCN LL INDICATE THe NUMBER OF LOOK AHEADS PERFORMED 


4 
m 
= 
OoO0007T00 &-4 0000 


LACNT: .BYTE sDORIVE O 
.BY *DRIVE 1 

.BYTE sDRIVE 2 

.BYTE sDRIVE 3 

-BYTE sORIVE 4 

.BYTE ;ORIVE S 

YT ;DRIVE 6 

YT ;ORIVE 7 

;SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
RP GISTERS WHEN THE 


885 
on 
33 
* 
mae 
go 
Be 
3 
® 
? 
So 
eS 
Ben 


t OPERATIC 
; SAVE G=0 ISTERS, AS PER 


1 
; (DPB+14), AFTER AN ERROR. 
SAVEFG: .WORD OQ 
;SEEK FLAG (SEEKFG=1 WORD) 
3 SEEK G=0 IF_WHEN THE DISK aw yt ISN’T IN THE WINDOW 
;FOR A DATA TRANSFER START A SEARCH COMM 
; SEEKFG<O IF ig TRANSFER WILL DO IMPLIED SEEKS, 
;DISREGARD ‘+E WINDOW 
SEEKFG: .WORD OQ 


7 T TABLE _(TIMER=8 WORDS) 
TIMEOUT THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


TIMER: ‘on =] sDRIVE O 
-WORD -} *DRIVE 1 
WORD -1l 3 ORE 2 
-WORD -!l -DRI 3 
WOR -] ORE 4 
WOR -1 sDRIVE S 
WORD -j *DRIVE 6 
WORD -1 sDRIVE 7 


;DATA TRANSFER ERWAY INDICATOR (OTUW=1 tal 
RANSFER UNDERW 


ATA 
BTUWS+N- (WHERE =0 TO 7) IMPLIES BATA TRANSFER UNDERWAY ON DRIVE N 


OTUW: -WORD -l 


;ATTENT " T Ri, (ATABIT=8 BYTES) 
. HTS SLE_CONTRINS THE CORRESPONDING BIT TO EACH DRIVES 
ATTENTION BIT 


SEG O0SE 


> bb 
DOuOuUIsWwru 


b= b= & + bb bs = Bh bo be 8 bo be be 8 be 0 Fo Be Fo bo bo 2 bb 8 bb 8 8 8 bb 
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ATABIT: Me , Delve 
: 


He ig Ra 
Be BRINE 


-RPO4/S/6 TO RH11 “MASSBUS conte BUS PARITY ERRORS” (MCPE) ALLOWED BEFORE 
:CALLING IT FATAL (MCPEMX=1 WORD) 


MCPEMX: .WORD 3 


FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPON/S/E), 
tT BPOEC TITHE VECTOR AD Ess (254)), AND RPVEC+e (THE BR LEVEL (5)). 


RPADR: .WORD 176700 
RPVEC: .WORD 254,S#3e. 


;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 


MXLACT: 4 
; MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 


MXDLTA: . . 64. 
NI MUM Berra DELAY IS 2 SECTORS (MNDLTA=1 WORD) 


MNOLTA: .WORD e2#64. 
:-MAXIMUM SEARCH FOR I70 WINDOW IS S SECTORS (MXWNDW=1 WORD) 


MXWNDW: .WORD S5& 
-DEFINITION. OF THE RH11/RPO4/S/’& ADDRESS INDEXES 


= TROL AND TATUS TER #1 (DRIVE REG. 00) 
Ar he RECT RCHOT E DRIvE REG 
RPBA=4 maa) R (NOT A DRIVE REG) 
RPDA=6 TRACK 8 38 REGISTER CORTVE REG. 0S) 
RPCS2=10 US REGIST #2 (NOT A 

0Si=le fh FOL AND REGIST ER (DRIVE REG O1) 
RPERI=14 43 REGISTER #1 (DRIVE REG. Oe) 
RPAS= 16 -ATTENTI Me Y PSE veReer gre REG. 94) 
RPOB=22 : orn BUFFER tar: (NOT A DRIVE REG. 
PMR=e4 ‘Drive Wee Re] TER Cont (DRIVE REG. 63) 
RP N=58 : SERT 120 STE NE IVE REG. 10) 

OF =32 i OFF a GISTER ( REG. 11) 

Kae - So REGISTER (DRIVE REC. 13) 

= we bd 

RpeReeic fc Re crude Ree1S 
RPER3=42 EGISTER RIVE REG. 15) 
RPEC1=44 ROB OS °S ON Beat TER (DRIVE REG. 16) 
RPEC=46 ke PATTERN REGISTER (DRIVE REG. 173 


OO 


rut. 


SIO 


Wru-OwWW 


be be he he he ae me ae be be Be bt Bn bo BB eb oe be he eh be pe 
OS IRE WH Owe oul e 


Net et ect eit et ait ot ab tt tt 
BBS VFR LO 


© 
_ 


Se 


RORUFUFOFUFUFOROFOFUFOND 
(our ODO NOUN -£w-O 


Wi) 
ror 
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;RH11/RPO4/S/6 VER INITIALIZATION CODE 
\RPOW/ SS DRIES ETT ER 


NI 
-THIS ROUTINE W WHICH RPO4/S/’6 DRIVES ARE 
i AVATL ABLE FOR te TING ANG T THE ORVSTA INDICATOR 
:TO THE PROPER STATE FOR EACH DRIVE. 
‘NOTE: THIS ROUTINE CALLS DRVINT 
CALL 
: JSR PC, RPINIT 
: RETURN 
“NOTE: THE ’P’ OR ‘L’ CLOCK MUST BE STARTED 
APINIT: SAVREG .SAVE RO -_RS 
bocce eae 17777 , MOV aePs, -(SP) ‘SAVE THE PRESENT PROCESSOR STATUS 
Blech Blceae SORES 177776 HEY BSSERGtg MPS LENENM all eguest gunue® 
515304 012701 012100 MOV RPERRS, R1 -FIRST SS TO BE CLEARED 
012310 Ole 012210 MOV EKFG, Re -LAST €SS TO BE CLEARED 
012314 pieros 1S: CLR (RI)+ ‘CLEAR 
012316 O2010e CMP R1,R2 ? 
12320 19 775 BLOS 1S : BRANCH IF NO 
iF 12702 012232 MOV sOTUW, Re -LAST 
012326 0 el 177777 2s: MOV #-1.(R1)+ - INITIALIZE 
Ole 1 CMP R1,Re : DONE ? 
12334 101774 BLOS eg “LOOP IF NO 
bien Geter g1sie0 Gap, | Mal Bon mone 
pisses poeos? bisise CLR OBRVETASE 
012356 013703 Ole22e50 MOV RPVEC R ;SETUP THE RH11/RPO4/S’6 VECTOR 
pisses Bieris tases my orate 
01237e 013704 012246 MOV RPADR.R sFIRST ADDRESS OF RH11/RPOY 
012376 0612764 OO0040 o00010 MOV #BI TOS, RPCS2(R4) {MASSBUS INIT 
piSube Bosna? SER RO. DRVINT : Me he ORive™ - 
B1suie raat ates = BR 48" 5 VA’ NOT T OR PARITY ERROR 
biSdie 10S061 012120 4g: CLRB ORVSTACRL) SET IVE STATUS TO OFFLINE 
Ole4¥2e 005201 cs: NC :GO TO NEXT DRIVE 
O0le%24 042701 177770 IC #1C7,R1 : MASK OUT UNUSED BITS 
O1e430 001366 BNE 3$ -BR IF DRIVES TO GO 
12432 512701 000007 MOV #7.R1 :START WITH DRIVE 7 
012436 005037 177776 CLR aePs "CLEAR THE PROCESSOR STATUS 
Et O37985 012140 6$: rs DPINT (RI > BENT uagT ING TO SWITCH PORTS ” 
eus6 0047 17704 JSR PC. SET. IE -SET INTE T 
ole 106781 biSi40 7$: TSTB BIRT (AL) Ri VE SHI TCHED PORTS ? 
pistes See os FH Bele ea Te 
012466 bi Des? 177776 MOV (SP +, aePS ‘RESTORE THE PROCESSOR STATUS 
012472 104413 RESREG ‘RESTORE RO - RS 
012474 000267 RT PC : BYE-BYE 
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3224 

3eeS 

3556 

3ee7 

3228 

32293 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

S535 Bitte LOR 2120 

3241 018804 10S061 pigise 

Ses BiSeIS OlGTEN BOBOTE 

3244 Ot T127e4 ee 000000 

see O1s538 ' 4% 010000 QO00010 
a l 393 017704 

3248 pi seae 

3249 012544 105061 012120 

3250 Bi Seer 032764 0 000000 

3251 1eSS& OOIS14 

3eSe 012560 004037 017214 

3253 012564 pronss 

32eS4 012S66 13030 

3eSS 012570 012605 

3eS6& 012572 Bd 000001 012130 

3257 012600 020020 

sseg piseee 2708 oe4o20 

Se fist Ble oem 

Seve Gleece Gee705 Davos 

3264 12630 7 024021 

3265S O1Se 34 rae 

2598 12636 12761 O00004% 012130 

326 Biseed CoP 020022 
S O1seee Oe4+Gee 

3555 ise7R 1404 

3574 Bt AA ae 177777 012130 

3e Haz the ooolel 

3274 012674 0 017374 

3275 0127 000000 

3e 0127 Bi 

3e Ole7 le746& 010000 

3278 012710 004037 017374 

3273 Ole714 ooocg3e 


-DRIVE INITILIZATION ROUTINE 
Nie 3 aa FONE DETERMINES IF A DRIVE EXIST AND IF IT IS 
: AN 4/5/6. IF IT IS, A “READ-IN PRESET” IS ISSUED AND FMT22 
;1S SET TO A "1". THEN MOL, DPR, DRY AND VV ARE CHECKED TO 
: INSURE THEY ake ALL ON A “1” DEPENDING ON THEIR STATE, 
none :DRVSTA IS SET TO THE PROPER CONDITION. 
: #ORVNUM, R1 i DRIVE 
: NOV SOROR RY BUS ADDRESS. OF OF I AH1I/RPOW/S/E (RPCS1) 
: JSR RO, DRVINT : OOLCED BY A JSR 
: RETURNI : ERROR OCCURRED (PARITY) 
: RE TURN2 ‘NORMAL RETURN 
ORVINT: MOV RS, -(SP) 
RYVSTA(RI) ate VE STATUS 8 OFFLINE 
CLE BRVEYPCRT a TGS ive YepE” INDICATOR 
HOV” ORE URBeSeCRY) Far  — 
MOVB ally RBESt CRY) ie ECR mae COMMAND (& SEIZE DRIVE) 
BIT 12, RPCS2°.R4)’ sNONEXISTENT DRIVE? 
JSR pe, SET. IE eae na. "AI THOUT A “TRE” 
1S: CLRB ORVSTA(RL) :SET DRI STATUS TO OFF! INE 
BIT #81T11,RPCS1(RY) SEE F DRIVE AVAILA 
BEG 7$ BR IVE NOT AVAILABLE 
JSR RO,RO.RP *READ THE DRIVE TYPE REG. 
QS sERROR RETURN ADDRESS 
MOV (SP)+,.RS -PUT DRIVE TYPE IN RS 
MOVB #1, ORVTYP(RL) ; SET 4 INDICATOR 
CMP #20020, RS -1S IT SINGLE PORT RPO4? 
BEQ 2s ‘BRANCH IF YES 
CMP $24020, RS } iT A DUAL PORT RPO? 
BEQ: e : F YES 
MOVB We,DRVTYP(R1) SET INDICATOR 
CMP s20021 , RS ; NGLE P ORT RPOS ? 
Seoté‘éa@ewss> DUAL PORT went 
MOVB #4.DRVTYP(R1) SET RPOG INDICATOR 
i pe hota 
CHP #24022,RS ; DUAL PORT RPO6 ? 
MOVB 8-1, DRVTYP(R1) : SET INDICATOR TO ’OTHER’ 
2s: MOV #121 =(SP) -DO A “READ-IN PRESET” 
ISR RO, WRT. 
RPCS1 
MOV #BIT12,-(SP) :SET FMT22=1 
ISR RO, WRT. RP 
RPOF 
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012120 
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4$: 


6S: 
7$: 


RO,RO.RP 


(SP)+,RS 
y 


;READ RPDS1 


an TF } IN_RS 


BRANCH I ATA=0 
ATABIT(R1), mash NACKEAR AT ATTENTION BIT 
RO,RD.RP A=1 


(SP )+ 


y 
#-1,ORVSTACR1) 
6$ 


z ea! 
ac<eiTi2:e1Toe: 871 Ztail 
#1, ORVSTA(R1) 


(RO) + 
Ri 


#2000. , TIMER(R1) 


DPINT(F!) 
(RO)+ 
(SP)+,RS 
RO 


:1S IT UN UNSAFE? 
iSeT UNSAFE INDICATOR 
DPR, DRY, AND VV 


> RS’ 
F MOL ORY. OR VV IS CLEAR 


T "ORI E oratus To ONL INE 
ate RIVE THE ERROR R 


° 
i 
iC INDEX TO ADDRESS WORDS 

:START SEC TIMER 


REST eORT INITIALIZE INIDICATOR 
sRESTORE RS 
sEXIT 


;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 


‘CALL 


JSR 
PNT 


RETURNE 


RO, J#RPO4 


ePS,-(SP) 
RPVEC =>, a4Ps 
(ROS Re 
con 

oa RL 
BRUSTACRI) 
ULDFLG(R1) 
DPINT(R1) 
. , ORVINT 
DRVSTAC(R1) 
6% 


T 45/6 DRIVER 
: EOORESS - F POL yee OF DRIVES PARAMETER BLOCK 
:R TURN UR HERE’ TE 
; 


{5 FULL 
a ae REGUE st IS IN QUEUE OR THERE 
;IS "AN aN ERR ONDI TION 


A THE CALLING STATUS 
NP Ae ANY RPOY/S/6 INTERRUPTS 
; 1. os DRIVER” FLAG 
PARAMETER BLOCK POINTER 
ZERROR INDICATOR 
NUMBER 


icles THES at 


22 
© 
Re 
9 
w 
HiNWH 
2 
wD 
wD 
2.) 
w 
-_ 


O INIT THE DRIVE 
ve ORIVE 
72 ATUS ONL INE? 


DazDr 
8 


I 

C 
RANCH +f YES 

E 


OD 


oem 
Dww 


SEG 00be 
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3336 013130 1057 1 o12150 1S: TSTB Q@S(R1) ; OUTST ING PORT REQUEST FOR THE DRIVE ” 
131 1 1 BNE i ify 
38 131 1 4 900010 MOV R1,RPCS2(R4) SELECT re E 
: 14 ? 6 JSR RO; DRV "ts aes IN QUEUE 
cet 1318s 2 “ 000103 ocococe CMPB #103, ,2R2) i Te THI REQ. FOR AN UNLOAD? 
3 0131 re 77777 +=O0l2166 MOVB #-1 ULDELGCRI) ; ET THE “UNLOAD IN QUEUE” FLAG 
3344 Ol 166 OS761 12110 2s: TSTB VACT(R ;1S THIS DRIVE ACTIVE? 
334S 0131 l BNE ;BR IF YES 
3346 : 174 37 013326 JSR 3 , OPT ‘CALL THE OPTIMIZER 
343 13508 l 72 120000 ooo016 3S: MOV eBITIS!BIT13, 16¢ Re) -SET THE “UNLOAD IN QUEUE” ERROR FLAG 
334 1321 BR eS -ExIT 
3350 i i 737 014436 4$: JSR PC. ,CI7 ‘GO HANDLE THE PARITY ERROR 
3356 1 020346 S$: JSR RO, DRVQUE sPUT RE ST IN QUEUE 
; act 
3354 Ol 000100 BIT eBIT06, (RY) -IS Ie’ SE READY ? 
3 1 22 BNE BS -BR I wit S 
l 017704 JSR PC, SET. IE SET 
l BR : TURN. Re ST IN QUEUE 
3398 ples 012120 6S: TSTB VSTAC(RI) : ELF BR OFFLINE OR UNSAFE 
1 4 0000i6 MOV 111 ITL4, 16¢ -SET LINE ERROR NDICATOR 
3361 Ol Tess TSTB rip Bt) -See tf OFPL INE NONEXTSTE 
3363 Ot Be BS AS} rr 
5 i 4 100002 O00016 OV eBIT1S'*BITOL, 16¢ e) vi F IVE NONEXISTENT 
33ee 013274 110000 o00016 7S: MOV efITIS!BIT12, 16¢ g9 Is aLNSAFE 
3366 013302 gg: RESREG ; STORE 15 - 
3367 Ol 20 S (RO)+ NORE 
3368 013306 O1 o$ Hae] UP site 
3369 013310 10441 9$: RESREC 
3370 O133ie 720 ids: TST (RO) if HE RETURN ADDRESS 
337i; 013314 105037 012164 CLRB ACTDORV Fa“ ACTY IVE ORI DRIVER" FLAG 
3372 013320 012637 177776 MOV (SP)+, aaPS RETO s* ous R LEVEL 
3373 013324 000200 RTS RO PR TURN TO CALLE 
3375 s OPTIMIZER-CALLED FOR A PARTICULAR ORIVE 
: CALL MOV #ORV R1 OR NUMBER TO R1 
: ISR BC OPT” : OR Ie A COMMAND 
013326 104412 bpT: SAVREG ; SAVE 
013330 0137 177776 MOV aePs (SP) SAVE PROG. “statu 
01 34 161 233 012162 : CE BIAgLT(R 1), SRCHMT LEAR "SEARCH WAIT KEY 
Ot 0057 TST Re’ is " “Dee ps) REQUEST IN QUEUE? 
l 1 BEO “BRANCH 
Ot 4 o04000 oj00000 BIT #BIT11,RPCS1(R4)’ DVA SET? 
1 1487 BEQ l ; BRANCH if NOT 
013362 032764 oo001c0 oDD01e BIT #BITGE,RPDSI(RY) °;IS VV SET ? 
013370 991003 BNE 10$ -BR IF IT IS 
013272 004037 O1247é 9S: ISR RO, DRVINT -SEE IF ORIVE STILL ONLINE ” 
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76 70 R 6S Y OR ‘OVA’ NOT SET | 
3308 l 7 012120 10S: rsT8 ORVSTAC(RI) ora E gut INE? 


: YES-- 
020444 2h ‘2 E REQUEST FROM QUEL 
NE STATUS/ERROR INDICATOR 


149000 000016 MOV SavstACRl THStBITIY, - pave 


L 
110000 000016 BQV sBITIS!BIT le, 16(Re) ete UySAEE STATUS /ERROR INDICATOR 










l 
a 
1 762 
1 16576 
1 4 
i 
a 
: 900111 1S: oe aiid, +(SP) Aes Tm aie ae THE STACK 
i zis 004000 Str SBIT11, (RY) Pi VE AVAILABLE ? 
Bisuen $956 ooo1so oo000e Cres #150, 2(R2) FU Raga FOR 1/0? 
813458 BR5 33 014022 R ,CI4 * CALL Re COMMAND INITIATOR 
3410 013474 00440 ines ie BR gS ; BRANC nee 
Suid Biseg8 Besar OR VES aM 
3413 013504 005737 012210 TST ;D0_1 
aui¢ 813213 Agad37 014772 »LA 
S41? 13220 Beté‘dkS iBT TURN HERE ON. B,PARITY ERROR 
x13 01386 ee 013606 3S: JSR PC,CI1 + START A DATA TRANSFER 
51 Hees 737 913714 4S: JSR PC,CI3 Pea 
34 1 12761 177777 O12150 SS: MOVB 8-1, DPRQS(R1) ST INDICATOR 
3423 i 444 MOV R1,R3 4, f j RDS 
Hes te: 023420 012212 nOV #10000. rivencaa} OR ART 10 SEC TIMER 
Re Ge Bee BH racmn EFF RSUR “EY 
3456 Bi 325 1985 017704 P SET. IE WITHOUT A “TRE” 
3431 013576 012637 177776 es: MOV (SP)+, aePS RESTORE PR PROC. ae TUS 
332 01 1On4 3 RESREG T 
3433 01 0207 RTS PC 
3435 ; COMMAND INITIATOR 
5436 pe caaeg #ORVNUN, RI DRIVE NUMBER 
340 : TSR He ot iar ath Ob1d OR CI4 
3442 . espera, TRANSFER 
43 . CID=SEARCH REQUESTED BY DATA XFER 
mie ‘CI4=NOT DATA TRANSFER 
au47 Bi3e18 Bices? Bisied Cll: FB ROU TRNGHIT PE MOREO IN TRANGFER WATT CuEUE) 


OS 
coRiee Pil 4eNOV-77 Te:e4- ce ears stnGl YOUAL BOAT Rui 1 RPOW/S/6 ORIVER (REV 1.0) SES 0065 






MOV R2.R . SS TO R3 
: A HOV ep e83cR4) Ree 1 PORE . 
8 BG bes couNT 
i MOV (R4)+, (R4)4 ae 
4 i ae MOV (R3)+° (R4)4 iL OaB 
te ue ue CRS tt Re ik MORITE) ROUTINE 
Sueo i _ 2 Ba ree iT G cue? FS LOAD 
See 13654 CI? SERROR RETURN ADDRESS 
8 O01 MOV (R3)+,-(SP) ‘LOAD CYLINDER ADDRESS 
3480 13660 017374 JSR RO, WRT. ©! 
sH61 l 
7 6@ Be 
3463 i 909002 Sy 2(R2),-(SP) sLOAD “COMMAND+GO”, “A178A16", AND “PSEL 
3464 013674 017374 JSR RO, WRT. RP 
3465 Ol Recs! 
SuEP 13704 12232 MOV Ri DTUW ;SET “DATA TRANSFER UNDERWAY” 
G4 
aes O137is leave cra: Hoy RPAORARY REC ADDRESS 
471, OL io MOV tre). -(SP) t BESTRED CYLINDER ADDRESS 
3493 Of AS ART 
3495 i ? wos aPcA anteiaiel 
3474 0137 C1? 
sPICKUP SECTOR ADDRESS 
376 01 es oe Xun Mae t BACKUP BY MAX. SEARCH FOR I/0 WINDOW 
34 OI 
S458 Di oe 1S: BOY P18, ;COMBINE THE ADJUSTED SECTOR WITH 
Suet He eere ae or Ae RT’ AP ‘LOAD DESIRED TRACK & SECTOR 
ea 1 Ane 
13774 36 ci? 
| Vv #131,-(SP) :START A SEARCH 
ue Se ane ree JSR. RO, WRT. RP 
3188 i é 1 2 012234 012162 B15e QTABIT (RL), SRCHMT ;SET “SEARCH WAIT” KEY 
3480 Ol l 246 CI4: MOV RY i RECS “Rives 
(RY) : SELECT V 
sug> i i 49 NOV Ri RPC Se - iB ICKUP QUESTED COMMAND 
3493 O01 131 CMP #131,R3 ;15 1 A ARCH COMMAND? 
Suge i 5 ROY (R2),-(SP) ‘LOAD DESIRED TRACK & SECTOR 
i 17374 ,WAT: 
2 i ars See 
rl CI? 
$ -GO LOAD CYLINDER 
i 000105 1S: Cnee : 0S,R3 ifs Ira SEEK’ COMMAND 
3205 t le 2s: MOV Bevo), -ise LOAD DESIRED CYLINDER 
3503 014074 17374 ISR WRT! RP 
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C2RIBBO, RPO4/’S’& FMTR MACY11 30(1046) 07-NOV-77 10:07 PAGE 68 
CZRIBB.P11 O4-NOV-77 12:54 SINGLE/DUAL PORT RH11/RPO4/S/’6 DRIVER (REV 1.0) SEG 0067 
3561 Ot see Oh ae 020444 12S pt4 PC.P FROM QUE 
14 000016 i : : egtTG7 ecRe> T rete one ert 
3 iN l rt VEFG HL 17 /S/6 REGISTERS” 
14 017566 J PC, SVRH11 THE REGISTERS 
se Bt: as. OBE coe a 
3567 Ol CIs: ASL RI 
3568 iwd 001750 Ol221e2 HOV #1000. , TIMER(RI) :SET A ONE SECOND TIMER 
3570 O144 000001 012110 MOVB #1,DRVACT(R1) ; SET THE DRIVE ACTIVE 
3571 O144 RTS PC’ RET URN TO THE USER 
3572 O144 CI6: MOV R3, ={SP) ‘LOAD THE COMMAND 
3573 O144 017374 ISR RO; WRT. RP 
3574 0144 RPCS1 
3575 O144 CI 
3576 O144 BR cIs 
3577 O14436 010090 o00010 CI7: BIT e81T12,RPCS2(R4)_ jORIVE NON-EXISTENT ? 
we Bh ft Bvt Ne 
UE 1S: S HING IN QUEUE ? 
3e8t Ot aes 000016 By cre BIT11, 1eche> ERROR INDICATOR 
3283 Bt ed eee ISR Ht Lg 389 S eaue AE RH LRPON/S 76 REGISTERS 
3583 iwued 000111 CI7B: MOV ihe mCP) 
3284 144 017374 J 
14474 CS1 
3586 014476 cIg 
3687 014S00 020326 JSR PC, EMPTYQ sEMPTY THE QUEUE 
3288 j o1¢1 cL YLDELG (RI ) iS, AR THE UNL OAD IN QUEUE FLAG 
14510 leli L VACT(RI) :-DRIVE IS I 
3590 014514 D1le23e CHP Ri, OTUW -IF THIS DRIVE HAD AN 170 REQUEST 
3 14 BNE :IN PROGRESS CLEAR ALL OF THE FLAGS 
t O35380 012232 MOV OT 
3594 014534 18: RTS . : a 
3ege tists 010000 000010 ; Boye egIT12,RPCS2CRY)' nie. *NED’ R2er ? 
3597 O14S46 BNE 1$ FE YES 
os ike a 
l 012110 1S: FETp VACT(RIL) ; DRIVE ACTIVE? 
3008 Diuses 21 HOV TaNsuT iGeT T he ee WAIT" QUEUE 
3603 O1uBeb Bi S489 CHP RL, DT are D THIS. OF HAVE AN 1/0 IN PROGRESS? 
3605S 014574 neo422 JSR PC. GETREQ ‘GET THE DP “POINTE 
3606 14600 2s: rt SRC NTRY F DRIVE ? 
3608 1veo4 010006 000010 By Sin, RPCS2(RY)” NED. SET ? 
3610 O14614 100002 oco0on1e HOV _ seen , 166 5 SET pote: NON-EXISTENT’ INDICATOR 
313 B HeS4 102000 OOODIE 3S: MOV IT1S!BIT10 1e(R3 ) bf “NON-CLEARABLE PARITY ERROR INDICATOR 
3613 014632 017566 JSR PC. SVRH11 i$ 1ZRPO4/S/6 REGISTERS 
3614 014636 177777 Oleele 4S: MOV adhe, TIMER(R3) ;5 
3615 O14644 012110 CLRB BRVACT (RID Hi, He 1 raat TO IDLE 


OO 


/S/6 FMTR. MACY11 3001046) 07-NOV-77 49:97 hy, 
-NOV-77 12:S4 SINGLE /DUAL RH11/RPO04/S/’6 DRIVER (REV 1.0) SEG O068e 








7RIBBO, RPOY 
Z7RIBB.P11 
3616 014650 012232 CMP R1,OTUW :1S THIS ORIVE SETUP FOR A TRANSFER 
3617 014654 BNE : F NOT 
3618 14656 472777 012232 MOV 1, OTUW “RESET THE NDICATOR 
361 1NGB4 12160 CLR RNSWT CL T RANSFER QUEUE 
3620 l G 1 Ss: CLRB ULDFLC(R1) - CLEAR OAD FLAG 
1 014674 1 000010 IT e68ITi2,RPCS2(R4)’ ;'’NED’ SET ? 
3%ee O14 BNE 6$ ;BR I YES 
3623 O14 INC Ri ‘MOVE TO THE NEXT ORIVE 
3624 O14 ADD #2.R3 
3625 01471 eaea BIC af¢7,R1 
3526 147 BNE 1S s BRANCH IF DRIVES 
32 147 177777 012232 MOV 8-1, OTUW -NO DATA T ERS UNDERWAY 
3628 0147 12160 CLR TRNSWT i CLEAR THE ’T ER WAIT’ QUEUE 
3629 0147 0250 ISR PC, CLRQUE ‘CLEAR ALL OF THE REQUEST QUEUES 
3630 0147 000040 cd0010 MOV eBtTOS,RPCS2(R4) : SBUS INIT. 
Se32 | O1u7¥e 020326 es: JSR. PR ENP TYO COUN THE DRIVE’S QUEUE 
3633 0147Se Olel20 CLRB ORVSTACRI) i cee DRIVE 5 SEFCINE 
3634 014756 012130 CLRB ORVTYP(R]) -C EAR HE ORIVE TYPE INDICATOR 
3635 014762 017704 7$: JSR PC, SET. IE ‘SET “IE“ WITHOUT “TRE” 
3636 014766 RESREG : brone RO - RS 
3637 014770 RTS PC : RETURN 
3639 :LOOK AHEAD ROUTINE 
3640 : 
3641 - CALL 
3642 : MOV #ORVNUM, R1 ; DRIVE NUMBER 
3643 MOV sOPB, Re :POINT TO DPB 
3644 : ISR RO,LA - GO CHECK THE wINDOW 
3645 RETURNI ‘ERROR RETURN 
3646 RE TURN2 :START A SEARCH 
3647 : RETURNS :START A DATA TRANSFER 
3649 014772 013704 O12246 LA: MOV RPADR. RY ;GET RPCS1’S ADDRESS 
3650 014776 010164 OO00010 MOV R1,RPCS2CRY) SELECT Bar 
91 500e 037 017214 JSR RO’ RD.RP : CURRENT CYLINDER 
15006 36 RPCC 
915010 1Sle2e2 4g ; ERROR T ADDRESS 
1501 000012 CMP (SP)+, 12(R2) i18 C NT CYLINDER=DESIRED 
015016 001037 BNE 3$ 5 EX F NO 
015020 105e61 012176 INC LACNT(RL) : MENT THE LOOK AHEAD COUNT 
015024 126137 O12176 O12eS4 CMP LACNT(R1),MXLACT’ ;EXCEED MAX? 
01 3026 BGT : H IF YES 
01 16203 o00010 MOV 10(R2),R3 -GET UES RED SECTOR ADDRESS AND 
01 SWA 3 sMULT. a IGN WITH 
015046 ASR R3 ‘LOOK AHEAD REGISTER 
01 B87? 000349 177776 MOV #340, a8PS ;PRIORITY LEVEL “7” 
Ot 4 0 017214 JSR RO, RO. RP ‘READ LOOK AHEAD REGISTER 
pt 4 Ob3t55 cnB (SP)+,.R3 CALCULATE THE DELTA 
015066 002 BGE 
15070 703 o02600 ADD #<22.%64.>,R3  ;MAKE THE DELTA POSITIVE 
015074 0623703 Ol2esé 1$: CMP MXDLTA,R3 ‘CHECK THE DELTA TO SEE 
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Boi? PAGE 70 
SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


BLT 3$ 
CMP MNOLTA,R3 
BGE 
es: LRB LACNT (R11) 
ST (RO)+ 
33: TST (RO)+ 
BR Be 
4: JSR C,CI7 
S$: RTS RO 
; INTERRUPT SERVICE ROUTINE 
ISR: MOVB #1,ACTDORV 
SAVREG 
MOV RPADR, RY 
MOV OTUW, R1 
BLT 
JSR PC, TO 
BR p 
1$: JSR PC,SC 
es: RESREG 
CLRB ACTDRYV 
RTI 
; TRANSFER DONE ROUTINE 
TD: CLRB DRVACT(R1) 
MOV #-1,OTUW 
ASL R1 
MOV #-1, TIMER(R1) 
ASR Rl 
MOV TRNSWT , Re 
CLR TRNSWT 
BIS #BITO7, 16(Re) 
MOV R1,RPCS2(RY) 
JSR RO, RD 
RPCSi 
CI7 
ROL (SP)+ 
BMI 3 
rst SAVEFG 
B 
JSR PC, SVRH11 
1$: gar PC, OPT 
es: av #113, (RY) 
3$: BIS peat TO 'BITOE, 16¢ 
JSR 
JSR PC ERIS 
MOV w40111 tau) 


MOV #113, (RY) 
BR sc 


;SPECIAL CONDITION ROUTINE 


;IF IT IS WITHIN THE 
iW INDOW---IF YES ZERO 
oe LOOK AHEAD COUNT 
‘AND TAKE THE I/O EXIT 
; ADJUST THE RETURN ADDRESS 
: BROCESS THE ERROR 
> RETURN 
i SET “ACTIVE ORIVER” FLAG 
: ADDRESS OF RHSCS1 
;GET “DATA TRANSFER U NDERWAY” INDICATOR 
NO DATA TRANSFER UNDERWAY 
BALL PACH RANSFER ONE 


sEXIT 
; CALL er No sal ata 


sRESTORE R 

sCLEAR “ACTIVE DRIVER” FLAG 

> RE TURN 

-SET ORI ACTIVE INDICATOR TO IDLE 


:NO DATA TRANSFERS UNDERWAY 
;CANCEL TIMEOUT 


;GET “DPB” ADDRESS FROM THE 
plang A? WAIT QUEUE--CLEAR QUEUE 


SELECT THE DRIVE 


: TRANSFER ERROR( TRE=1)? 


;BR IF 

>SAVE THE RH11/RPO4/S/’6 REGISTERS? 
: BRANCH 

> YES--SAVE THE REGISTERS 

5 le I R 

*CHECK OTHE IVES 

; RELEASE T IVE 

*CHECK FOR OTHER DRI 

Re) ERROR 


0475/6 REGISTERS 


I C 
cok O THE DRIVE 


SET FLAG 
jenety. “DRIVE’S WAIT” QUEUE 
: 

C HER DRIVES 
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Sost 12208 ue 
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soa! BIBGSY 1000s 
373 Desee 4400) 
3536 123 0 7 
37393 1537e OOSO46 
eat Bite Hons 
374 1eaos tay 
gris RIES Gals 
3745S 1$410 l 
37%% O1S4le 106303 
ga pleut Q0lgr3 
349 O1suco 000267 
ars DIENer 105781 
as 015430 000137 
753 CIN 10678 
gee Glee tele 
are, DisNee Oha0es 
37389 b1e4e0 : 35 
et Bleee Bre 
pth 0154%7e ete 
aes RIEL apscey 
3766 015504 737 
re, Dissle ObiG 
3763 O15 137 
753 01bse0 Bias 
ais lees ipics 
ME, 015534 737 
3775 15540 7 
78 DISEYO 405764 
a7, Bisewe 105704 
3779 O1SSS4% 032737 
gre CiseEe ORIOL 
3782 015570 p04037 
3783 015574 go0000 
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SC: 


1$: 


es: 


3$: 
S$: 


63: 


FO6 


0297 Aye 71 
ORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


RPAS(R4) ,R3 
RO,RO.RP 


(SP)+ 

h3. ES. SAV 
C,SET.IE 
PC 


- (SP) 

R3, (SP) 

+ 

R3, (SP) 
scs 

Rl 

fe 

Sc3 

(SP)+ 
DPINTC(R1) 
SC13 
— 
aie 
ORVSTA(R1) 
ULDFLG(R1) 


PC,GETREG 
PC,SVRH11 
PC,SCle 
DRVSTACR1) 
#6I1T14,RPERRS 
3$ 

SCll 
orenns+e, RS 
ORVACT(R1) 
PC,SCle 


glee 
ORVSTACR1) 


SBIT13,RPERRS+6 ; 


#113,-(SP) 
RO, WRT. RP 


;READ “RPAS” 
;BRANCH IF ANY ’ATA’ 
;READ CONTROL AND STATUS REGISTER 


 Taae | 


oe 
-YES 


: SAVE 
: ORT AN it. 
NTERR 


sR 


sATA 
-YES 


=1? 


=|? 


H 


ENABLE 
i PROCESS ALL DRIVES THAT HAVE 
. AN oe A’*=] 


ITS SET 


BRANC 
;MOVE TO THE NEXT DRIVE 
CHECK? 
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‘CLE 
eT 


;POR 


CHE 


C 
-BR 
AD 
R 


OR T 
tans 
RO THE DRIVE 
QUEST OUTSTANDING ” 
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CK T 


PROGRESS? 


ab ppOcEES. THe 


BRANCH IF MORE TO 
F THE STAC 


0 USER 
ING THE DRIVE ” 


NO Ona Nee TO CHECK 
THE SS IN ’SESCAPE’ 
EGAL INTERRUPT 


TSTANDING COMMAND 
IVE STATUS 


nom 


HANGED ? 


;RELEASE COMMAND 
;WRITE THE COMMAND INTO RPCS1 
;REGISTER INDE” 


RPE 
aye 
WITH COMMAND OR ERROR RECOVERY ° 


DRIVE ? 
N MORE ORIVES 
TATUS 


KSRIBB P11 


3801 


seurnoaReS 
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etuafeateafestechttcstectea 
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WOnNCU SC Wwle-O 
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7-NOV-77 -07 PAGE 72 
STNG /DUAL boRY RH11/RPO4/S/6 DRIVER (REV 1.0) 
7g ey (SP).RS OP etUP CREA D BEF THE ERROR CALL 
FR, aly Bee ee 
= BR Sc4 -GO CHECK FOR ATA’S 
(ES. SAV ; THE ADDRESS IN 'SESCAPE’ 
ZBRoR ae — i REPORT THE OOORESS PLUG CHANGE 
BR cy i CHECK FOR ORI S 
SCBb: SL l -SETUP TO S LORDS 
MOV #-1,TIMER(R1)  +:STOP THE TIME 
ASR R1 ; RESTORE THE DRIVE ADDRESS 
dy GsEBUEECws/SEyecieRyygr CUTER FOR THe aucue 
JSR RO; RD. RP ‘READ THE RPOY’S STATUS REG. 
ses 
MOV (SP).RS -AND PUT IT IN RS 
eB ip Bae eae Or" 
Bere eyevem) Sere BEIME $f am ones 
BIS #81115!81T07!B1T03, 16(Re) “INFORM USER OF ERROR RECOVER COMPLETION 
1S: ion RO,RO.RP -READ ERROR REGISTER #1 
re 
(SP)+_R sAND SAVE IT IN RS 
TSR pe avANT I *SAVE RH11/RPO4/S76 REGISTERS 
MOV a1] -(SP) : TISSUE A DRIVE CLEAR 
JSR RO, WRT. RP 
RPCSI 
Aa: R R ;WAS “UNSAFE” CONDITION =1? 
_ BMT re *BRANCH IF YES 
rst Re ‘ANYTHING IN QUEUE ” 
BIS #BIT1S!B1TO7!BITOS, 16(Re) : INFORM USER OF ERROR 
1S: ISR 0,RD.RP sREAD DRIVE STATUS REG. #1 
te 
MOV (SP) RS -SA S1 IN RS 
ROL (SP)4 - "ERR =]? 
ae S| DRVSTA(RI) ‘DRIVE TS UNSAFED CO 
a- ; 
R pc. SVRH11 -SAVE RH11/RPO4/S/6 REGISTERS 
Bis a T1IS!6IT12, 16¢Re) - INFORM USER OF UNSAFE ERROR 
2s: BIT eB81T12,RS s"MOL” = 1 ? 
BNE ‘BR IF YES 
MOVB #-1,ORVACT(R1) ACTIVE ERROR RECOVER 
Move #1,ORVSTA(R1)  ;ONLINE 
HOY #30000. , TIMER(R1) :START 30°SECOND TIMER 


SEG 0071 


SEG 0072 
. 0:07 PAGE 73 oe pe 

CERISE PLL OMCNOV 97 Geret SINGLE’DUAL PORT RHI1/RPO4/S/6 DRIVER (RE 

-77 12: 

CZRJBB.P11  O4-NOV 


; ER OF ERROR 
MP Sot IS'BITO7!BITOY. 16(R2) ; INFORM US 
° 8} Beerbs 168280 000016 3S: te DRVACT(RI) ;ORIVE IS IDLE 
3641 B1SB58 } whe wy PCAEMPTY@, + ONL. N PROGRESS OR QUEUE? 
’ 
a Bethe iit Bh Money fete om nse, 
3845 016074 012166 + ie FYcRL} peas chi)” viSt BBR TENLION, 
3646 016076 4 Qige34 OO0O1e 18: MOVB ATABTTCRI) PRI 
Sova Oleli0 ieee: BiSi20 BHI as IRELERSE \CORMAND 
1611 MOV #113,-(SP) SUR HE 1 COLEIAND IN 

3es0 Olelie 1 000113 JSR RO, WRT. RP etn! ESS 
3851 Olblee ? 017374 RPCS| Pa Y,EXIT ADDRESS 
S864 Olelse OOC13? O154I0 Ee: if BRVACT(RI) Heigl 
Se65 Olel36 105761 O12110 | pean ; B POINTER op 
3827 Bielsg Bo47s? oeo4ee JsR —s- PC CI? 3 PROCES PARITY ERROR 

8 bieise 4 3 nn 4 che cK OGRESS”? 
3860 O16156 i BiSs4i0 es:,. Mie  cLOFLGCRID b A ORD INS 
See Oleles los7e1 olei66 SCil:  fSTB UL ‘CLEAR UNLOAD FLAG 
3863 O1617¢ G034Gs 016166 ctRE © DRVACTIRI {SET DRIVE TOLE OPERATION FOR 
sere Bieta, {Benet 110 1S: RIASETING) Say pee eet 
See6 O1es04 [3e13? 018234 12162 si . pane Bb mein oS! 
3867 JSR PC , POPQUE tceT " BIT 
a Gt ee wtTO7,16(R2) HE REGISTERS? 
3876 piess0 Gseree i Serene: a os Boe ve ai OF THE RH11/RPO4/S/6 REG’S 

_ ‘ yES-~ TION BIT 
372 Oibe3e o4737 Ol "Ove OA ABITCRL) ,RPASCAYY A REQUEST. 
3e74 Bles4o Tieies Biesss oo0016 2s ISR BC, OPT igre K FOR MORE DRIVES 
aes Bitser Bete, US cciz: Hy Eiepcgocmy (SER ae REL" SeHaIS ™ 
1 pus? { 012100 MOV RI (RY) , RPERRS+2 ; 
3878 Oleste Blew? O00019 1510 ea mes hs seesseoe TE ORIVE 
3300 Oles7e Ole4 B000%0 912104 HOV RPER3 RM) | RP NIT. THE STATE OF TH 
3881 O1 Saar Diesze a) on i KOKE ERROR 
Sec5 DIESE TS = PC PC_OFF_OF T 
Sees Bits Sate? ee eee Ean Skee ae 
Seer RiPase 6 BRAo ee Sc13: ASL ! Ri) ;STOP THE TIM 
ee? 16356 Soest) 177777 012212 nb — c v r 
$ee3 GIES BOE! Be aie ssl L236 PL Errenrion 0 
3641 Bie344 Tees sere SOSSiS grr bh BT 
3892 016352 
D16356 001006 AS 

3694 Oleses 0650! 


06 


CZRJBBO, RPO4’S’6 FMTR MACYI11 30(1046) O7-NOV-77 10:07 PA 
C2RIBB.P11 O04-NOV-77 12:54 SINGLE/DUAL PORT RH11/ pou /S/b DRIVER (REV 1.0) SEQ 0072 

38% 016362 012761 O234e0 012212 MOV #10000.,TIMER(R1) ;START 10 SEC TIMER AGAIN 
3898 916370 906201 ASR R 
38939 016372 00043 B s EXIT 
3900 016374 105761 012140 1S: TSTB OPINT(R1) i INITIALIZING THE DRIVE ? 
3301 016409 4ey BEQ 2$ “BR IF N 

16 1 1 012140 CLRB DPINT(R1) : CLEAR THE INIT INDICATOR 
3303 O16408 37 012476 JSR RO, ORVINT :GO INIT THE ORIVE 
39 1641 NOP ; DUMMY PARTTY ERROR RETURN 
3390S 016414 105761 012120 TSTB ORVSTA(RL) ‘DRIVE ONLINE 
39068 016420 003014 BGT 25 -BR IF YES -- START ORDER 
3307 O1b4ee 702 TST R : UE ENTRY FOR THE DRIVE 

0164 141 BEQ ga ; NOT 

3903 016426 004737 O2042e ISR REQ ET DPB ADDRESS 
3910 016432 76e 14 000016 BIS eetTis BIT14, 1eche) : INFORM USER THAT DRIVE OFFLINE 
3911 O16 00473 1756 JSR PC, SVRH11 ;SAVE THE REGISTERS 
331¢ O1buNe 004737 020326 JSR PC’ EMPTYO ‘EMPTY THE REQUEST QUEUE 
3914 O164S2 105061 012150 2s: CLRB PRQS(R1) :CLEAR THE PORT REQUEST INDICATOR 
3915 016456 004737 013326 JSR PC, OPT ‘START THE PENDING REQUEST 
3316 016462 000137 915410 3$: IMP sc4 ‘PROCESS OTHER DRIVES 
3318 ; RPON/S/6 TIMER ROUTINE 
3920 MOV STINE -(SP)  ELASP D TIME IN MILLISECONDS ON THE STACK 
336} JSR C,RPTMR -CALL 75/6 TIME ROUTINE 
3923 O16 005737 012164 RPTMR: TST ACTDRV sCHECK “ACTDRV 8& ACTSTR” 
3924 DIEUSS O01 030 BNE ;IF NON ZERO EXIT 
3925 016474 112737 OO00001 o12165 MOVB #1,ACTSTR -SET “ACTSTR” 
3926 O16S02 104412 SAVREG :SAVE RO - 
39°27 016504 o00S001 CLR Ri *START WITH DRIVE O 
3955 01651 ? 012212 1S: TST TIMER(R3) ;I1S THE TIMER RUNNING? 
3g37 pieere eae 000002 012212 Se (SP), TIMER(R3) both ged INTERV Al 
3932 bipess b88663 BCi gin, ;BR IF_NO SOFTWARE TIMEOUT 
3933 016526 004737 O16S60 JSR PC, STO ; CALL SOFTWARE TIMEOUT ROUTINE 
3934 016532 BR 3$ -GO TO THE EXIT 
3393S 016534 1 2s: INC Rl ‘MOVE TO NEXT DRIVE 
3936 016536 005723 TST (R3)+ 
3937 016540 be2701 000010 CMP #8. ,R1 -OUT OF DRIVES? 
3338 016544 3361 BGT g ; BRANCH IF NO 
3939 016546 104413 3S: RESREG ; RESTORE RO - RS 
3940 O16550 105037 o12165 CLRB ACTSTR : ZERO ACTIVE SOF TWARE TIMEOUT ROUTINE FLAG 
2941 O16554 O12e16 4$: MOV (SP)+, (SP) ADJUST THE STA 
s34e 016556 000207 RTS PC -RETU 
330 ; SOFTWARE TIMEOUT ROUTINE 
3946 ‘NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
3947 ; OR GREATER 
2942 
2949 ‘CALL: STO 
3950 : MOY #ORVNUM, R1 :DRIVE NUMBER 
396) ISR PC, STO CALL 
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3952 
3353 
39S4 thse: rte 
3358S 016 10346 
3325 thts oe Thttet beep 
16 10164 001 
3958 016574 004037 017214 
3959 Ol 000012 
3360 Bt Ole doe 
331 Ol6e0s 10872 
yes BEE Aros zee 
sae 215613 I0a7e1 12150 
3967 pi Sess 1370e 012160 
7 Stee 00140¢ Olee3e 
3a00 O1be Se 305 ate: 
are Blbess Gowre Ol7ete 
7a Cleese 106081 912110 
ay Bites pea 
3378 7 7 
3378 Olee7e GONGa? O1eN7e 
33980 016704 05761 012110 
Ses REIS BOS craic 
33983 016716 3701 lee3e 
33984 016722 1402 
39e5 piece. Re seeS eat 
3387 016736 105061 re et 
01674e 105061 OlelbéeE 
339839 016746 1 oSs 177777 
33390 016754 7 
39391 016756 1 
Sas BLESS fesse Poo 
39394 16766 1 77777 
333 017000 cage EL 
39937 17 
39938 17 1164 0016 
3939 Ot : O51 08 12234 
4001 O17 1] 61 012140 
: Bt> On ost 012150 
4003 O170e— 105761 
woos 917094 Oe0137 o12232 
4007 O1704e 004037 017214 
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STO: 


STOL: 


1$: 


2s: 


3$: 
4S: 


ST0e: 


JO6 





ORESS OF “RPCS1” 
THE DRIVE 


READ “DRIVE STATUS REG” 


¥"=s1? 
ead 53 INTIALIZE THE DRIVE ” 














NG PORT REQUEST FOR THE DRIVE ” 


ye WAIT QUEUE 
Y ON THIS DRIVE? 


Eothss 
103, roche), SEF, Parbees! REGISTERS 


5 ID 
HE Or O FLAG 


RROR RETURN 


Y aes THE INIT. ? 


ER WAIT QUEUE 
170 ON THIS DRIVE? 


CERN OE INT 4 a QUEUE 
activ VE TO TOLE 


TORK ey 


VE BEEN AMECKED? 


TA_ TRANSFERS acre 


R WAIT QUEUE 
ST QUEUES 






ATTENTION nS 
ATT N NTTON FOR THIS DRIVE UP ? 


TRYING 70 INTIALIZE 1 DRIVE ? 


T ONLINE 
REQUEST FOR THE _ DRIVE ” 
SPONSE TO R 


NO RE 
BATA TRANSFER UNDERWAY FOR THIS BRIVE 
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SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 

RETURN 
MOV R1,-(SP) SAVE Ri R1 

MOV R3’-(SP) 
MOV RPADR. RY EN 
MOV R1,RPCS2(RY) LEC 

JSR RO; RD.RP 
RPDS! 
STO 

TSTB (SP)+ 

MI ST02 

TSTB OPINT(R1) 
BNE T0e F 

TSTB (R1) : OUTST 
BNE S108 : F 
MOV RNSWT. Re ; PICKUP 
CMP R1, OTUW : E 
BEQ is ; BRANCH I 
ge sei firiet 
se et ae 
MOV sbt RPCS2(R4Y) OTNIT" T 
CLR oRVaACT(RI) : ORI VE 1S 
CLR ULDFLG(RI) 
CLR 1 -START WI 
ote Ra VINT NIT. TH 
BR er ae” PARITY YER 
TSTB DRVACT (RI) 
BEO i Se 
MOV TRNSWT R2 -GET T 
cn oTUW, RI ;WAS THERE 
2 BE cerca se 
BIS abt i5'E1 708, 16¢ Ri 
CLRB ACT(RI1) . IVE AC 
CLRB ULDFLG(R1) } 
MOV #-1, TIMER(R3)  Oppat rhe ae TIME 
TST (R35+ : HE 
INC 1 NT T 
CMP #8. ,R1 ‘Cast. 
BGT sNO 
oy FalgDT HEP Ener 
JSR PC aH oe s LER AL 
BR 3 T 
MOVB RPAS (Re 

ITB AT tReRID RS 51 

NE ST 

STB PINT(R1) 
BNE ST -BR I Pony 
TSTB DPRQS (RI) Sure TaN NG T 
BNE STO 
CMP R1. OTUW 
BNE sTbi 
ISR RO,ROD.RP  YES--CHECK “RDY” 


SEG 9074 
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Ban Bes 
a : 


geoggege 
Bee daaS 


012140 
012150 
177777 
014S36 
012140 
Olel 


er 
140000 
77777 
012150 
o204s2 
1 


00004 
020326 
017566 


012244 


Oiee4s 
017240 


017242 
Bie 46 
10 


010000 


026000 


Oleele 


Oleele 


000016 
Oleele 


000016 


017362 
017240 


000002 


07-NOV-77 
SINGLE “DUAL 


STO3: 


1$: 


STOS: 
STOE: 


STO7: 


STOB: 
STOS: 


;ROUTINE TO 


* CALL 


RPCS1 
STOS 


oP 
L 
STB 


INDEX 
ERRADR 


RETURN 


STO 
e458 SStSet es, 16ch 
et OTIMER(R3) 


Per ge TneO 


sai fisterre, 16(Re 


RO,RO.RP 
reps §B 
RPADR RB. ADR 
(RO)+;RD.ADR 
acPC)+, (PC)+ 
0 

RD.WRD, 2(SP 
RPADR, -(SP) 
#RPCS2, (SP) 
sB1T} -acsP 
RO.R 
IJRPADR, -( SP 
aB1T 3; (SP) 


* Ure 
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494m ate 
Do FAV 
4 TN he 
mA mie 
SANG 

FE — 

vd 

4 

mA 

wn D 

~ 

< 

m 

_ 


= 


THE USER DRIVE NOT AVAILABLE 


et ten 
REGuesT INDICATOR 


br DRIVE ? 
USER OF “7! REQUEST ERROR 
THE DRIVE 


UEUVE FOR 
GISTERS 


© Tips oe we ee eee 
am: 
a 


READ A RH11/RPO4/S/6 REGISTER 


Breen. 


i i ae "PROCESS ERROR STARTING 
+ CONTENTS G. IS ON THE STACK 


s MAX. RETRY LOWED 
gave BO THE 

;USING T B THE INDEX 

: RE THEY D REGISTER OF THE RPOY 
s ADDRESS i Fo @ HERE 

i REG. CONTENT HERE 

‘RETURN IT TO THE USER 

-PUT THE SS ON THE STACK 

sFORM THE ADDRESS OF RPCS2 

‘CHECK THE :’NED’ BIT 

;BR IF DRIVE NON-EXISTENT 

;READ RPCS1 


;DID MCPE SET? 
;BRANCH IF YES 
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MP (SP)+, (RO)+ ; ADJUST FOR RETURN 
NOES Rete Matai ' SR RD. RPS - EXIT 
- ' SESCAPE’ 
4 Bis 004037 O20S06 JSR RO, ES. SAV ; SAVE THE ADDRESS IN IN ’SES 
NOES Te te 012232 ERROR OTUW IATA, TRANSFER ENRERWAY? 
Oro O173e0 JOG Oo a ec 
mt 12 ; BE® ; t YES--CL STACK AND 
re fie Bat ‘fr OR ee 
s02e 13 ie 040000 2s: BIS. eBIT14, (SP) id Fone SENDING ne 
40 017349 nei 012246 017356 MOV RPADR, 3S °F 10H BEE HIGH 
4078 17320 TT Bea? _ro MOVB a a(PC)+ ; WRITE THE ,HIGH BYTE OF RPCS! 
ube) Ot? ~_ bee ie t BOEEDED MAX RETRYS 
“O82 17 RD.RP2: . WORD 
4 17308 » Boe 0 * FATAL HeAROR’ EXIT 
“i pie il RO.RP3: MOV (RO rr + OAT AL 
408S 017370 01261 HOV (SP) , (SP) 
4086 017372 RO. RPY: 
3038 sROUTINE TO WRITE A REGISTER 
030 CALL 
4031 Mon OROLWAT RP CALL TH Wits. ON OAD(HRITE) THE REG. 
. TAG eee ‘T x BE FOE APGISTER TO BE LOADED 
4094 ae ge TQ RETURN TO ON AN ERROR 
4095 : TURN RE 
409? 017374 013737 012244 017550 WRT.RP: MOV apr te AT Re AX RE TEVS aioe 
4098 017402 016637 OO0O0002 017462 MOV shh : Poenieoe ie 
4100 Stat B1sGar 017464 NOV (R04: : } OF SISTER TO BE WRITTEN 
ae : ERS 
412 Ot e8 Tes945 000150 017462 CHPE epee Nes eT FOR DATA ‘alee Alt, ae 
4104 B17430 09037 017214 sR 0,RO.RP Lars OMBI “AipeaIZ, 8 Poel Wir 
418 1736 S6 WRT.R2 : THE iy E 
(SP) 
77770 BIC atc 
ais Oto ae 15657 bt 7463 MOVB (SP)$, WRT. WO > . est nie Onn 
4110 O1 012246 O17464 1S: ADD RPADR, WRT. T S OF 
4111 O1 WRT.R1: MOV (PC) +, a(PC)+ eh TH : D REG oe 
atts 174e4 WAT AD: WO 5 i ADDRESS F D HERE fab 
Se Biewss Blais SiRets et I Ms SE 
ate Bt ay oie 100 BI SBTTi "ai SP)+ i CHECK THe eNO. BIT ent 
atte Bi pes r eae Be ape 8 Ck FOR PARITY ERROR ON WRITE 
“ile Bt 5eo O53 017214 JSR RO,RD.RP : CHE 
4119 0175190 OO0o0014 RPER] 


-NOV- ? 
CZRJBBO, RPO4/S’“& FMTR MACYI11 30(1046) 07-NOV-77 10:0 













77 
yy, R (REV 1.0) SEG 00 
SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVE 
CZRJBB.P11 O4-NOV-77 12:54 ai 7 
; : F 
4181 Bi78ia G4278€ co0010 TSR: My ea ;PRANCH JF “PAR=0 
41 ; 1 05? 477776 017534 MOV a ap® ee | He REC. 
ai 7 biveis :; WORD MEX RODRESS ON E 
41 - WRT .R3 SSTtP Eawo 
Si BES BES cooscs Hifon SOES-SAV | aR ee Bn SRPYE" Ennon 
OR ; 
4i8— 81809 pc)+ REGRY"EdintoR SOP 
41 WRT.R2: 2 HORD ETRY AGAIN IF NOT FINISHED 
4131 Ol Lt (RD) RO TA THE “PARITY 
4133 Bi7eee B11060 oo y WRT.RS 13 FOR ERROR FREE EXIT 
17560 O004 T.RY: T 
ig oi 000260 uRT-RS: ATS " TERS AS PER OPB+14 
137 wet ;ROUTINE TO SAVE THE RH11/RPO4/S/6 REGIS 
4] : 
4139 ; CALL , POINTER TO Re 
4144 Jon BR SURAT Bate’ PAE BRives Rec’s 
ais ) $s gy OR DRIVE ? 
4 VRH11: SAVREG NTRY FOR THE 
4144 017566 ae S TST of : QUEDE 
a RY 
ae on Nove —(RE),APCS2CRY) ised PELE, veme POINTE 
ui4@ 017600 1G NO 4(R2),R3 ; 25 
d1d8 Bize00 311264 900010 HOV } NO ADORE 
4150 B17610 iA Bi oeue ibe #RPOB a “SUFFER REGISTER 
4131 6 17646 00022 1S: , 
si ee CS2(R4) 
T #81T07,RP 
si5s Bi7ese 032 000200 000010 BNE Sai tt AS ZEROES 
' g 
wise oi os FoR «RO. RD. RP + READ The rs fanee™ REGISTER 
ch on ae 
me ize ] See, (SP) +, (R3)¢ eee STORE 1 Ree Ne 
ties Bireee O10 cove cine BEE as ee FETE ca 
: TY 
ales B17e : 737 00002 917646 oR pe ae N g REGISTERS 
HIBS 17674 004737 014436 Pe: RESREG 
Stee 017700 413 RTS PC ie 
+ asta ; ROUTINE TO SET THE INTERRUPT urtwout GETTING 
;DRIVE NUMBER TO RI 
4175 : RETURN 
4174 
4175 


on 


ae 


SESERPER SESE SERIES BS tot 


os 


42 


SSESSLSELSSLELSSLLSLLLLLSLLIELSLELLILLSLI£ 
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10 


040000 


810000 


000001 


000010 


SINGLE DUAL bORY RHI 17 pau /s/6 DRIVER (REV 1.0) 


SET.IE: MOV 


28: 


MOV 


;QUEUE COUN 


QCNT: 


T 
BYTE 
.BYT 


RY, -(SP) 


;QUEUE INPUT POINTERS 


QINPT: . vO 
; vi 
. Vv 
, V3 
WW V4 
. WO vs 


;QUEUE OUTPUT POINTERS 


GOUTPT: 


“HORB 


“HOR 
“HOR 
“HOR 


“WORD 


eet: 
e6ITl4, 


(RY) 
(SP) 


: SAVE 


RPCS 
T THE “ 


4 3—-cL AR “TRE” 


> CLEAN 

TE TORE Ra 
‘RETURN TO CALLER 
BaIYE 
Bae § 

t DRIVE 4 

3 REE S 

i BRIVE 3 
‘DRIVE 1 
DRIVE 3 
BIE 

t DRIVE 5 

: DRIVE : 

: DRIVE 


DORIS SSSOSSSS 
VVVWVVTSs Seecc<<< 


BVBPPLLOO Voun-cwn-o 


“ BIT OF THE WORD READ 
Just OR DATO 


ae OF RPCS1 
i 
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;ORIVE REQUEST QUEUES 





l VO: .BLKW 10 
l : .BLKW 10 
l : ,.BLKW 10 
1 QORV3: .BLKW 10 
l QORV4: .BLKW 10 
19 QORVS: . Ki 19 
} 18 ye: » BLKW 8 
020250 QTERM=. 
sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
‘CALL 
: JSR PC, CLRQUE 
412 CLRQUE: SAVREG : SAVE RO - RS 
O1270s 017756 MOV BQCNT, Re ; ZERO THE QUEUE COUNTS 
2 CLR (Re)+ “DRIVES 0 & 1 
pistes ch tke} paives 9 & 8 
CLR (RS3+ : & H 5 
000010 MOV a8. RS “MOVE THE STARTING 
1 O2e6026 MOV sQSTART.R1 : SS OF THE QUEUE INTO 
1 1S: HOV (R1)+, (Re)+ -THE QUEUE INPUT POINTER 
: 000010 nov is R MOVE THE STARTING ADDRESS 
a 020026 MOV SOStART R1 OF THE QUEUE INTO THE 
lelee 2s: MOV (R1)+, (Re)+ ‘QUEUE OUTPUT POINTER 
r 7s BESREG . RESTORE RO - RS 
000207 RTS PC ‘ 
-EMPTY THE QUEUE SPECIFIED BY Rl 
> CALL 
: MOV VNUM, R1 :DRIVE NUMBER TO R1 
JSR C,EMPTYO 
40506 1 017756 EMPTYQ: CLRB QCNT (RI) sCLEAR NUMBER OF ITEMS IN QUEUE 
16161 017766 O20006 MOV QINPT(R1),QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 
2 006201 ASR RI 
4273 020344 000207 RTS PC 
ie81 ‘ROUTINE TO PUT A REQUEST IN QUEUE 
4283 * CALL 
4OB4 MOV SORVNUM, R1 ;DRIVE NUMBER 
4e8S : MOV sOPB Re i ORORESS OF PARAMETER BLOCK 
Brats JSR RO, ORVGUE -GO PUT REQUEST IN QUEUE 
4287 RE TURNI ‘RETURN HERE IF QUEUE IS FULL 


cSoven nid ‘S/’6 FNTR 
CZRJ 


4 


Ob be hs bb ne Be pe Be 
DOnNMUI SWE 


mR 


4322 


O4-NOV-77 


4 
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000010 
017756 
017766 
017766 
020026 


0177S6 


020006 


017756 


017756 


017766 
020030 


017766 


020006 
d2000e Bs0b36 


020026 YDe0006 


:07 PA 1 
bORT RHI RPBY/S/6 DRIVER (REV 1.0) : 
sRETURN HERE IF REQUEST IS IN QUEUE 


: RE TURN2 
ORVQUE: CMPB #10, QCNT(R1) 
BEQ ; aR IP YES- TAKE RETURNI 
INCB CNTC(RI) : INC NT QUEUE COUNT 
nov » @QINPT (RI) PUT rey REQUEST IN N QUELE 
CMP taba RL op anon in MO CRESET Tr THE POINTER 
- HOV stint PRESET POINTER 
TST (RO)+ - TAKE RET 
2S: RTS RO : RE TURN TO USER 
sROUTINE TO GET THE “DPB” ADDRESS OF NEXT REQUEST IN QUEUE 
> CALL 
; MOV sory At : DRIVE NUMBER TO RL 
TURN OF THE REQUEST 
: 'Ro=0 IF NO REQUEST IN QUEUE 
T H 
= FER. BENTCRID :IS THERE ANY REQUEST IN QUEUE? 
s fe & poche 
- MOV SGOUTPT (RI), Re :PICKUP “DPB” POINTER FOR THIS DRIVE 
2S: RTS PC sRETURN TO USER 
sROUTINE TO “POP” THE REQUEST FROM QUEUE 
* CALL 
: TSR BORO OPOUE. AL VE é' 
: TURN ‘ GALL 10 REMY 3 Ouest 
POPQUE: DECE Q@CNT(R1) sDECREMENT QUEUE COUNT 
ROV SOOUTPT (RI) R2 ;GET THE rie gu POINTER 
CHP OSUTPTIRL), Rh opt Ri) Fine 7 ae POINTER? 
NE 1 -6 H Xx 
om HOV GSTART(RI), ‘ooutP# Ri). » YES--RESET THE POINTER 


RTS PC ;RETURN TO USER 


;ROUTINE TO SAVE THE CONTENTS OF ’SESCAPE’ WHEN THE ORIVER 
; REPORTS AN ERROR DIRECTLY. 


CALL 


RO,ES.SAV 
N :: THE ERROR CALL 
URN : THE RETURN IS PAST THE ERROR CALL 


SEG 0080 


07 
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gepste plana erres —ESSav: HV GEtaalS coe) Sb Me MOREE» sescone: 
7 001160 CLR EScAre, tare BR T MOREE AP URA 
1S: - WORD :T ERR CALL Is MOVED HERE 
1 001160 MOV (SP)+,SESCAPE ‘RESTORE THE ESCAPE ADDRESS 
020530 000200 RTS RO : RETURN 


5 HE He Ae A Ae A A ee ae ae ae a a a a a He HH EEE EEE EH 
.SBTTL TELETYPE MESSAGES 


rack ee ie O08 O44S14 UNTOFF: .ASCIZ / OFFLINE/ 
nf es ONS O44S514% UNTON: .ASCIZ 7 ONLINE/ 
pu7roT a 16 O201le4 NOTRP: .ASCIZ @ NOT AN RPOY/S/6a 


17 O NOTPRS: .ASCIZ / NOT PRESENT/ 
as alls Bie 


NOTSAF: .ASCIZ 7 UNSAFE/ 


RPOYB: .ASCIZ /RPOY/ 
RPOS: -ASCIZ /RPOS/ 


120 & RPOB: -ASCIZ 7RPOB/ 
Pe! SYSTAT: .ASCIZ /UN STATUS/<CR><LF><LF> 


: 


2 
2 
Re 
g 2 
BB 
i 


MUNIT: .ASCIZ <CR><LF>/DRIVE: 7 


oe 
1 
BE 


103 oo ee Beets 97 8 
020677 124 000 T: . IZ /T/ 
M4 'F Aekt /O/ 
LINSSP: nex - 2 
LINSP: CI .. #£ 
ENTADR: .ASCIZ /ZENTER ADDRESS LIMITS: “<CR><LF> 


; .ASCIZ / ORIVE OFFLINE7<CR><LF> 


bee 
TO 
aes 
~-Ormn 
tee bom be 
=a 
RE 
G)e- Lond 
ao 
BSroh 
<= 
ore ood 
-——OTU 
oa tw 
xt 
a 
" 
a 
4 





17 106 
020754 O47111 505 000012 
4522 26 MORNP: .ASCIZ / DRIVE NOT PRESENT/<CR><LF> 
6 
1336 551007 0s - MER11: .ASCIZ 7 DRIVE NOT AVAILABLE’<CR><LF> 
4 - 4 < 
4394 021014 O201 6 20124 
4395 651955 053101 04 040514 
4397 021036 O4 a6 ate of MNRPOY: .ASCIZ @ DRIVE NOT AN RPO4/S/6a<CR><LF> 
398 021044 05211 44 
4399 O210S2 O20116 OSOl22 032060 


bb a he 
WOneuItwy 


3 


NOVVVUUUDUUUUUDUDUUUDUUUULUGUMUMUDUMDMDDLUIOITDIOOUIOD 
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Fa A 


ee ee ed ee ee eet 


Ps SAL ty tera 
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TELETYPE MESSAGES 


MUSOR: 


MSELD: 
MMODE : 


MFORMT: 


MHECK: 


MORMAT : 


MSIZE: 


MSEC2e2: 


MSECe0: 


BADENT: 


MADRER: 


.ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIz 


-ASCIZ 


ASCII 


-ASCIZ 


/ DRIVE UNSAFE7<CR><LF> 


/ SELECTED/ 


<CR><LF>/PROGRAM MODE (C OR F): 7 


4 FORMAT & VERIFY/ 


/CHECK ONLYZ 
/FORMAT & VERIFY’ 


<CR><LF><LF>/OPERATE IN 22 SECTOR MODE (Y OR N) ? 


/OPERATION WILL BE IN 22 SECTOR (16 BIT) MODE7<CR><LF> 


OPERATION WILL BE IN 20 SECTOR (18 BIT) MODE’<CR><LF> 


/ZINVAIID ENTRY/<CR><LF> 


ZENDING DSK ADRS MUST BE EQUAL TO OR GREATER/<CR><LF> 


/THAN STARTING ADRS/<CR><LF> 
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4456 toe 8 ee 051104 
4457 1SS4 l 
Lye 1 i) sins MSELP: .ASCII /SELECT DATA PATTERN/<CR><LF> 
44 l 101 0101 
4460 l 4 11058 
a4e2 bSt ° 930085 Reus ASCII / (0) ZERO’S/<‘CR><LF> 
°S/<CR> 
ques l e ouae 
teh l l 
4uRS l6é2ee 4 047440 ASCII 7 (1) ONE’S/<CR><LF> 
4 1 04251 144 005015 
Mt ] 35 344 .ASCIZ 7 (2) WORST CASE: 7 
Ud ind fy LBS4 lll l 144 
na > O2ei6Se 051501 035105 
447] O21660 047527 OS1S2e 020124 MPATD: .ASCIZ /WORST CASE/ 
4y472 Bs 1PS8 040503 3 
mah ps isc vat 2 she MSF OU: .ASCIZ <CR><LF><LF>/STARTING FORMAT ON DRIVE / 
i7s Gei70e Gesoyd Qoiti7 GHOBIS 
4476 171% 124 17 
4477 C2el722e 04 0 
4478 BS ose pie 4 MSCHK: .ASCIZ <CR><LF><LF>/STARTING CHECK ON DRIVE / 
Wi7o Osi7ae Ossies Avil G20ib7 
448] Oe ies 711 octet 
448° 021760 O04 
4483 021764 l ie 1117 MFCMPT: .ASCIZ <CR><LF><LF>/FORMAT COMPLETE, 7 
ng oh Sd pst : ] 7503 


44686 000 
4467 11 phe are O44103 MCCMPT: .ASCIZ <CR><LF><LF>/“CHECK COMPLETE, / 
4488 ae wat 13 047503 


4489 , S “= 4 uy 
quay o38 50 ama NUMERR ASCIZ TOTAL ERRORS DETECTED 
Ds a s #4 
449° ¢ ee ias 1 1117 
aoe BSSpeE bS2103 2105 520072 
449E ose0es 730 O04 2S23 ADDRIS ASCIZ /PRESENT ADDRESS IS 
g 4 $ # 
4497 QO2207e O52116 Met 42104 
98 022100 O4eSee O515Se3 OY444 
sen6 022106 O35le3 O00040 
ene a8 SHRAKRKRSRKRKKRSKRKSAAAAASAASASKAKASHRAARAAALARAKAHRAAAAAAARARAKEEEAER 
253 .SBTTL ERROR MESSAGES 
dene PEPE ERES EEL EEE ERE REEL ELLE L EA EAEE RARE ELLA LLL REAAALAALAALARAR AE 
4507 Oeelle O4412e 04 O4Y444O EMI: .ASCIZ /RH11 INTERRUPT OCCURRED (RPAS=0) “ 
4S0B OeeleO0 OSrT1l1é a OSeS2e 
4509 Oeele&B OS<.20 OY744HO 041503 
4510 Oeei3s4 OSl1eS O4eS2e 020104 
451i Oerel4¥e OS1050 O40S20 036523 


OO 
os 


= = bs bo bo 
WOnoeuUIswr 


RPO4/’S’6 FMTR MACY11 30(1046) 07-NOV-77 
Pil O4-NOV-77 12:54 ERROR MESSAG 


024460 ae 


— PAGE 85 
SEG 0084 


1558 0130 EMe: .ASCIZ /UNEXPECTED ATTENTION OCCURRED 
l 1 
fig iS19 
lle 2105 
: 1183 EM3: .ASCIZ /MASSBUS PARITY ERROR (MCPE=1)/ 
lll 13 1105S 
04 le 64S0 
0S01 02446 1 
ll 1 041123 EMMY: .ASCIZ /MASSBUS PARITY ERROR (PAR=1)7 
ped Balin 
lil i1os 
Biot a 
Geb e5 1202 EMS: .ASCIZ /ADDRESS PLUG CHANGE BIT SETV 
lb 
O88 seules Boai 28 
2 1 2040 EME: .ASCIZ /RH11 DIDN’T RESPOND TC ADDRESSING 
Sil} 1e4 
4 7117 
O22 peat 0440 
sie Bit a 
eae 051108 EM1O: .ASCIZ /ORIVE OFFLINE/ 
1 3117 
02241 000 
bee ot EML1: .ASCIZ /PERSISTENT DRIVE UNSAFE ERROR’ 
O54 
iT 
5 O47 EMle: .ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 
1 
2S06 
belt 
133 EM13: .ASCIZ /SOFTWARE TIMEOUT/ 
OSil b 
04251 
$0 O471 EM14: .ASCIZ /DRIVE UNSAFE ERROR/ 
2564 
EMIS: .ASCIZ @CONTROLLER/DRIVE ERROR DURING WRITE@ 
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ERROR MESSAGES 
EMI6: .ASCIZ 
EM17: .ASCIZ 
EmMeO0: .ASCIZ 
EMel: .ASCIZ 
EM2e: -ASCIZ 
EMe3: .ASCIZ 
EMe4: .ASCIZ 


HO? 
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JCONTROLLER/DRIVE ERROR DURING WRITE CHECKd 


@MRETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE® 


@DATA ERROR DURING WRITE CHECKd 


@CONTROLLER/DRIVE ERROR VERIFYING HEADERSA 


M@HEADER COMPARE ERROR VERIFYING HEADERS@ 


@CYLINDER FIELD IN HEADER IS NOT CORRECT 


@WRITE CHECK ERROR@ 


sf SHSAAKAAELLALAALALAALEAAKKALAAALALLAARALEARARAAALLARARARALAAARAAEE 


Bue: 


“ASEIS | 7ORIVE 


RPDS! RPERL RPER2 RPERS RPAS/ 


SEG Coss 
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4624 O23266 OS0122 051105 O2006e 
4625 023274 Oe0040 Ole 951105 
oe 
DH3: .ASCIZ /DRIVE REG ADR DATAY 
Ge l By os 
4630 1104 OG20040 
4632 : et ; 42beb DH4: -ASCIZ /DRIVE REG ADR GOOD BAD/ 
0040 
4635 Oseii7 
4636 de33 040502 
qe38 neta gigs 04 042104 DHE ASCIZ /RH ADDRESS’ 
BSsube ONeeSs | beises ee 
4640 bes413 O4 guise o4 S28 DH10: .ASCIZ V/DRIVE ERR PC RPCSI RPCS2 RPDS! RPERI RPER2 RPERZY 
4641 lle 
4e43 OBa4sa bal : - 
4644 3442 1 1123 
Hous e345 1 2 20 
oo Ben Hee 
4649 B20040 252 
MEET BS3eT; . Oot ; DH10A ASCIZ /RPEC1] RPEC2 RPWC RPBA RPDA RPAS RPLA/ 
eee Seis a sata yk 
e488 F 
4oSY 3S 12010: 
weSS be3540 l 041120 020191 
Nee? OB aeSt 101 O2004C 0 
4660 i MH4LIC 4 OH108: .ASCIZ /RPDB RPMR RPDT RPSN RPOF RPCA RPCC/ 
4661 rege $012 11 
Nees | GS3E20 104 OeD004C i 
4664 023626 lee 0471 : 
4665 023634 A501 311 
4666 364 APO04C 22 
4667 023650 suet 0 
WEES DS3e 164 BHHeS & DH17 ASCIZ /DRIVE ERR PC CYLINDER TRACK SECTOR’ 
t oS & § ° 
4670 pS3e , $3 D20040 D4244C Liee 
467 3578 N201C op 
ore Genres Baveis Celie Oeli08 
467 3748 a's 3 
m Sa 0237 0 L4ac 1505 
1678 083738 Tes fe 920105 DH20: .ASCIZ “DRIVE ERR PC CYLINDER TRACK SECTOR’ 
4678 O23746 iS2 1440 O4613! 
4679 023754 O47111 O42504 Oe20l22 





J RPO4/S/6 FMTR 
Ks BB P11 O04-NOV-77 12 


CZRJBB. 


4680 
4681 





aria ated et urate Re RN NT at RT 


eT Ie 


a 
2 


=: 


cs 


Re 
~—Tu 
~ 


ee 


28 


- 
. 


Be 
2JO- Or 


R 

fest 
= J. p= 
~— FW) 
a 


Oo 
a 

= 20-0 
wSso kn 


ll 
10 


es 
: 


MACY11 30(1046) 
:S4 


07-NOV-77 
ERROR ME 


DH20A: 





77 10 
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-ASCIZ 


.ASCIZ 


-ASCIZ 
-ASCTI 


-ASCIZ 


-ASCII 


-ASCIZ 


JO? 


:07 PAGE 8S 
/RPCS1 RPCS2 
/RPWC RPBA 
/RPSN RPOF 
/ 

/DRIVE ERR PC 
4 
/DRIVE 


ERR PC CYLNOR TRACK 


RPDS! RPER1 RPER2 RPERS- RPECI 
RPDA RPAS RPLA RPDOB RPMR 
RPCA RPCC/ 


EXPT’0/7<CR><LF> 


CYLNDR ACTUAL HEADER 


RPECe/ 


RPOT/ 


MEMORY DOISK/<CR><LF> 


SECTOR DATA DATA 


SEG 0087 
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ERROR MESSAGES 


DT1: 
DTe: 


NT3: 
TY: 


T6: 


UT10: 


DOT17: 
OT20: 


DT23: 


OTe: 


DF 1: 
DFe: 
DF3: 


SEG 0088 


ATTN 
DORIVE, RPERRS ,, RPERRS+2, RPERRS+4, RPERRS+6, ATTN 

DDRIVE, RO. ADR, RD. WRD 

ODRIVE; WRT.AD; WRT. WD, RO.WRD 

SRPADR 

DRIVE, SERRPC, RP. REG, RP.REG+10,RP.REG+12, RP. REG+14,RP.REG+40, RP. REG+H42 
RP. REG+44, RP. REG+46, RP.REG+2, RP. REG+4, RP. REG+6, RP. REG+16,RP.REG+20 
RP. REG+22, RP. REG+24, RP.REG+26, RP. REG+30, RP. REG+32, RP. REG+34, RP. REG+26 


DRIVE, SERRPC ,DS.CYL,O0S. TRK, SAVSEC 
DRIVE, SERRPC,OS.CYL,DS.TRK,SAVSEC 
RP.REG, RP. REG+10,RP.REG+12,RP.REG+14, RP. REG+40, RP. REG+42, RP. REG+44, RP. RE 


RP.REG+2, RP. REG+4, RP. REG+6, RP. REG+16, RP. REG+20,RP.REG+22, RP.REC+24,RP.RE 


RP.REG+30, RP. REG+32, RP. REG+34, RP.REG+36 
ORIVE , SERRPC , BUFP , REUF , RBUF +2, RBUF +4, RBUF +S 


DRIVE, SERRPC,OS.CYL,DS. TRK,SAVSEC , SGDDAT , RP.REG+22 
RP.REG, RP.REG+10,RP.REG+12,RP.REG+14, RP. REG+40, RP.REG+42, RP. REG+44, RP. RE 
RP.REG+2,RP.REG+4,RP.REG+6, RP. REG+16,RP.REG+20, RP. REG+22, RP.REG+24, RP. RE 


RP.REG+30,RP.REG+32,RP.REG+34,RP.REG+36 
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47 000001 OFY: WO l 
4995 000 .BYT 4,0 
4794 0008 OF10: .WO 
4795 01 000 -BYT .,0 
4796 023511 . WOR H1iOA 
479 000 “BYT 0 
4798 0235 . WOR DALOB 
4799 00 000 -BYT ,0 
4800 000901 OF 17 Wd 1 
4801 034 - BYTE S,34 
480e 000004 OF 20 WOR 4 
4 00s 034 -BYT 5 34 
4804 024001  OORD H20A 
4805 010 000 -BYT 8..0 
4806 02407 WO bHeOB 
4807 O2eSO6E 010 000 "BYT .,0 
4808 20 024174 ; DH2OC 
co 004 000 “BYT 4,6 
4810 74 0900001 a — i 
4811 007 000 -BYT 7,0 
B13 OBer 007 034 ren: TE O93 
4814 Ge5108 02400 : bHeOA 
4g1S 106 01 000 “BYT ; 
4816 025110 024077 ; bHe0B 
4817 Oedsille 010 000 "BYTE ; 
4818 025114 O24174 ; oc 
4619 025116 000 “BYTE 4, 
wB5> , SHSKRESLKLLASALEKKALKLALELLAALAALEAALAAALAALALAAALAALAARLLKRALAALLAKLEASE 
4823 : BUFFER STARTS HERE 
secs : ; LHHKASKAELEKALLE LALLA AAALALAELLAAASE RALAKKLSRKLHLRARALAALARAAERARLLE RAE 
uBS? S120 000000 O00000 O00000 RBUF: .WORD 0,0,0,0 :BUFFER FOR HEADER CHECK 
4628 leé o00000 
4650 025130 BUFP: sFORMAT AND CHECK BUFFER STARTS HERE 
4832 025130 o0SO1S ossOo S32 TITLE: .ASCII <CR><LF><LF>/22-CZ2RJB-B/<CR><LF> 
136 S103 pue TDS pSeeas 
NES4 OSELaa BOE ry 
147 l 7464 -ASCIZ @RPOY’S/6 FORMATTER PROGRAMA<CR><LF><LF> 
48 1S4 7506 
l 101 ? 
42 1 1e0 17 
48 l I le 
“842 l O12 17 LOADRY: .ASCII <CR><LF>/TO ‘FORMAT’ OR ’CHECK’ DRIVE 0, REPLACE THE ‘XXDP’“<CR><LF> 
ug Zui Sebise 
que du7 Betton bes 
5 ? 11 Aid 
484 OeSe42 10s 104 
4847 025250 OS010S O40514 O42503 
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SEG OC9C0 


/PACK ON DRIVE O WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40, /7<CR><LF> 


-ASCIZ /AND RESTART THE PROGRAM/<CR><LF> 


out Tne 5 USD FOR: T PROPER 
ALSO READ THE ADDRESS FROM repoRe ss IF 
S ROUTINE DESTROYS RO-R4Y 


"8. 


JSR PC, BUSADR 
TURN 
- WORD 177700 
776 
: TST GHGROR 
ere ; 
cL c 
V »RO 
TYPE SMRPCS1” 
MOV tRO)+, -(SP) 
TYPOC 
bg | ,» LINSP 
ROL IN 
MOV (SP) 
MOV HIAR Cr intr 
Jor 
f 
i$ 
44 
MOV Re -2(RO) 
TYPE HVEC 
MOV bSRPVEC, RO 


S thee Bie aon ADDRESS FOR RH11 
S ADDRESS 


; INPUT FROM TTY REQUESTED? 


Tier ened REQUEST FLAG 










NTRY 
ASCII TEXT 
SS HIGH LIMIT 


ONLY ENTERED 
wu ENTERED 


w 1, A CARRIAGE RETURN 


pia NEU 
FIRST VE VECTOR 
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4308 Mov (RO)+,-(SP) ed RH11 VECTOR ADDRESS ON THE STACK 
4908 020705 TYPE , LINSP 
4 ROLIN NTRY 
4 V (SP)+,R1 Ree, 1 RoORESS 
4910 et Mey ORSYEK’ RUM The NU 
4911 38 ; eee bs ONL Y ENTERED 
ugie ? fe 
491 3 : 
4914 4g : uf TH A CARRIAGE RETURN 
4915 3$ : WITH : 
4ai6 4§ : WITH A ”.” 
491 4S: MOV Re.- (RQ) : 
4318 | 7§: MOV E Cc } : ERROR VECTOR 
49] 000004 MOV #8$, ERRVEC . 
4920 1 TST : 
492 MOV VEC : vector 
4 MOV i RO 4 2 NEW PARAMETERS 
4 MOV ‘i Ri F OF WHERE TO PUT THEM 
HOoY MOV (RO) +, URL) + : 
4925 MOV (RO)+, (R1)+ T 
uae? zh ky RY ERRVEC . ven RROR VECTOR 
4928 CMP PETAR YES 4 ‘Cc CLEAN OFF THE STACK 
4929 ERROR 6 :R ORT THE ERROR 
‘ ‘ BR iS ASK OR BUS ADDRESS 
4336 020061 MRPCSI: .ASCIZ @RPCSI = a 
i330 O41S0S MRHVEC: .ASCIZ @RHVEC = a 
4936 
4937 K. NUM CHECK R (OCTAL) 
4938 THIS R ThE NE CHECK AN ASCIZ STRING FOR LEGAL CHARACTERS 
4339 GALL papel 
4gy MOV #ADR,R OF _ASC Z STRING. 
4942 ; MOV #NUM aa ima 3e OFT 
494 J RS. CK. NUM -GO THE 
4ugu4 TURN ROR et ONL Y NIERED et = 0 
4gus ; TURN oP BY cOARACTER. “Re = 0 
4a4e ; RE TURN J LLEGAL CHA ER ne THE INPUT STRING 
| ofan eee . 
4948 ; TURN be = = NOMBER 
449 : TURN ;“PERIOD” -- NUMBER 
495) 10446 CK.NUM: MOV RY, -(SP) : RY 
= 1 MOV R3'-(SP> : R 
s MOV Re, -(SP) . 
uote CLR R44 : POINTER 
CLR R : AAT R AY ZERO 

4 CLR a .ST T 

006426 J RS,CK.CHR : K HARPCTER 

is 6 - ILLEGAL CHARAC ER 

4959 =6020 g ‘CARRIAGE RETURN 





BOS 
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CZRIBB.P11 O4-NOV-77 12:54 CK - CHECK NUMBER (OCTAL) SEG O03e 
§ :DIG T 0-7 
$ -DIGIT Nt 
000004 iS: #4, RS i INC MEN RETURN PAST “CR” AND “PERIOD” ONLY RETURNS 
2s: ASL R3 -FOR OCTAL NUMBER IN R23 
BCS &$ :DON’T LET IT GET TO BIG 
ce RS 
BD Ot«drR«CR3 
006426 J RS; CK.CHR : CHECK ONE CHARACTER 
S$ ; CARRIAGE RETURN 
Ran Ves 
33 ‘DIGIT 0-7 
8§$ ‘DIGIT 8-9 
3$ TSTB (RL) : Te*nor™ FOLLOW THE “PERIOD” 
ee (RY)+ ‘INCREMENT THE RETURN 
4g TST (R4)+ it NT THE RETURN INDEX 
S$ TST (R4)+ NT THE RETURN INDEX 
703 025430 CMP LIMIT,R3 -J VAL 00 LARGE ? 
1g BHI - i Fir iT 
Geni ? 6S: Tet (RS)+ s INC a ie RETURN ADDRESS 
16 ? 7§: TST (RS)+ : NT T TURN ADDRESS 
Deedee tes - MOV RY RS Ser A ENTERED D OOBC UES eee: 
726 TST copys - CLEAN Ore HE STACK 
Ge60e6 12603 MOV (SP )+,R3 ; RESTORE 3 
012604 MOV (5P)4'RY ‘RESTORE RY 
026032 01150s MOV (RS),RS ‘GET RETURN ADDRESS 
026034 05 RTS RS > RETURN 


090001 END 


COS 


GE 9S 
:07 PA 

-77 10: 

7-NOV 

RACYAE SCIONS) OFT 

; TR y 

“$/’6 FM 

RPO 

CZRJBB0 








SEG 0093 
Meh. 6S peu 
HOREAD Ooves0 
02 
OER se ise 
TABLE 32 PCH 400 HIVEC O11 
He et SPTYa 020326 AE = «BBSHOD 
12:5 pio $40 4 ERPTYg. 900030 Ine 2 100 
cir re = pol0DR 4174 Mi 40s iLF = 000002 
CZRIBB.P11 atte - a HSte eat ay ms tk 990026 
: se ion 8 ee aa Bee ce: 
— Ss ‘4 # 063400 M14 6 IXE = ¢ 
ac TpRy Bisies EHGADR atte pie, las a Geegat LA : 
Y 4 & ; PLA 174 En 2153 LF 025430 
p oe e et iy rei 1T 705 
AC Is ruse a eee BT eke Me OSs 5 LIM 960708 
a. Ba ise ee Re thE ae 
Biers” S98 ie fie Boke,” Boeri ree Me eo ee 
ATTN . 1 cig ? PINT _ 0 180 Ene sii ve ob izee 
at = 909016 ca, 495 . 10 EME “ite MCLK - 44 
ary eK C S ACT id} ENC YL 6018 5 te O1ee 
ats = A ex: Dic 674 BRVCLR 1 Be9210 MC hla 
ee SRE sc Raia ROR aye, Bes ere ee 
ates OS Bonn CLOCK e . vere Bisi30 SRR VECE 06 MECHPT 1153 
BADENT 021436 DRY ? ; Se TS 
BROENT 9900 19 RhACe 001300 M 41350 EXTT = g wack | Sides 
2 De0bE CNTLC = pata .CYL 1593 XT10 = 6 MHS = 90000" 
1 4 at ts Mee Pe : 40 ret, Oi eee 
BE GINe CSU . 001246 TSY TO = 4 1220 
fo. BOt5 Bae bes at = poooo4 Fen = Bonses RODE |, 901220 
Brat > oooc 7 m 70 Br = 10 enrors 010000 MOH - 0? 
Sins © 000004 = 17 74 103 _ MTee o0000e +. 0ele 0 
Hie : Bs Bi, Bie ate : Se Rie meso Bee 
T l = 4 06 = Fe - 2 > als) 
ESS: a Bee hie = ge es ae may eee 
Bt The = 1000 Be iS 025020 RTE ge Ge TIRES Bee MRP CS 961730 
pi: Sele Peso eats ae te ys Bah ae: 
Hee a Bie sic ce: Be 
giti3 2 Geooon er Be gis Bae 
BIT14 = 100000 OH1 3413 OT ous 
BITIS = 900004 DHIG be3511 DT4 
BITS = D000 BHiOB 053063 
BITS ~ p00080 DH17 
nn 7 Bae 


DO8 
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CZRJBB.P11 O4-NOV-77 12:S4 SYMBOL TABLE SEG 0094 
MSEC20 021357 
mcg Sette pos: OBeODR Reyer Soieep se, Die sus o4goog 
MSELP 1560 PIP 2 Rtne : Bos Sc 16060 cuss 
ee Bip ed ba rot. bloat eee so: 
MSTCK = 2 . = 900004 1264 SWS = OOOO4O 
T a x = = 
muni Babee? PoPau Aso peea = O80 seFlra” P8105 ae = pp0ts 
muC s PR = RP = 000000 - 14S = 000400 
mR __= OpODge = 000100 Rp 0 HOR O0S603 SYsTAT 206 
MXDLTA_ Ole PRI = ~ONOL4O = RAnnAS ro B0e SYSTAT 40 
MXLACT O1zee4 PRe a .. SET TEL 402 TABLE 001374 
MXWNDW Oleebe PR = mae statat ae VEE 18 40000 
MO 003116 PR? = 000340 RPECI = OO0044 100 TRITVEs 
M1 ope6 4s PS) = 17777 = 000C Bde, * Romeye 015174 
nin BRP Bae. hasoct ae Rate ome se Men * $00819 
ne 0304 Pay = 177776 REERZ = 00049 STACK = 001100 TKVEE = 000060 
=— > = 
ME Boxee BCNT Gonges RPINIT 012264 Src TRAPVE= 000034 
NBA = 100000 050 RPLA - dle : = STCLK £070 TRAPVE= 000034 
Nis = D020 goeve 920110 RPOF = 9000 S19.” Oieseg TRKTST Qosd7e 
= QORV3 1 RPSN = 000030 ST01 166 = 
NOTPRS 10 TRK1 = OO4OOO 
NOTRE ca epeve 130 ReTOR 61 466 210 017006 TRK1O = 949000 
NOTSAF O2e0611 QORVE 020210 RPWC = 18 17056 TRKe = 10000 
Seiten” Soprie QINPT RPON «13034 ero? Oli TRNGWT” 012160 
TPT RPOYB 1 StT0s 3=—s«O17 = 
FSET= 000 176 TRTVEC= O00014 
OFREV = 000200 GeTOP. RPOE Toa paSrae RKS_ 901232 
OF 100 = ae RPO6 _ 9206. ST. CLK 742 TTRKSC 001234 
OF 200 = 10 ca Re A SVRH11 017566 000100 
OFSS = wall B20 Re =000006 SWR 001140. TYPADR 006136 
OF4O0 = - 40 AVEF rede SWREG 0176 TYPDS = 104405 
OFSO_ = RDOAT = O00171 Saveeg= TOaaiS SHO = Ronee TYPE = 104401 
OPI ROLIN = 104911 SAV 1524 Sie = 000004 TYPON = 104404 
OPT 013326 RD-ADR 017540 Bian Biase SWO3 = 000010 TYPOS = 104403 
SRENT ESSE RO. REL 17356 @Eio = 901000 Sw0e = 000100 UNS = O40000 
PARE 017362 SCli 016166 SwO7 = 000200 F 
PARI 1426 RD-RP3 017366 S¢ci2 («01625 UNTOFF O20S3e 
PARC 1441 RD. RPY 1539 SC13 p SWwOS = OOO4OO ON 20543 
PRS wan 7 26 SWOS = 00 UPDACY OO0S66e2 
pee Bl mare hese se: aoe ait = aoe een, Bois 
Beta * Sette ee Se Silk = BisGRe ish = B36) 
B o0le44 RESREG= 104413 S¢cs 015422 SWi3 = O20000 Hes == 00004 
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CZRJIBBO 
C2RIBB.P11 O4-NOV-77 le:S SYMBOL TABLE SEG cOoSS 
UWR = 000010 WRT.WO 017462 ERROR 636 SOCNT 007736 S$TKSRV 010254 
VUF = WRU = OOO4O0 sERnec BOTT Te SOMODE 007740 $™N = QOO0000. 
vU30 = 010000 WSU = OOO0004 SERRTB 1626 $PAass 001100 STNPWR 011634 
VV : 690190 $AUT 1134 RTT 1118 UES 001166 SIPS 001152 
wAO = HAR llee2 SC 116 OCHR 011034 STPFLG 1157 
Wc 0012S6 SBDDAT 1126 SFILLC 001156 ROLIN 011124 S$TPS 001150 
WCE = 040000 SBEL 1162 SFILLS 1155 RDS = 900007 STRAP 012014 
WCF = B90040 CHARC 007510 GDAD 1120 11756 $TRAPe 012036 
WCKD = 181 KSWR 910472 $0007 Lies RP 901172 STRP = OO0014 
WCKHD = 0001 MTAG 1100 Ge TH 164 PVEC 1174 STRPAD 012050 
WCT 001SSe $c = 900000 $G Uy 0S62 SRTNAD OO0S206 STST 001102 
WCU = OOO0001 SCNTLC 011367 $HD = 00 SSAVRE 011720 S$TTYIN 011360 
WRE = BO4ODD SCNTLU 11374 SINTAG BOLL3S SETUP= Q0010e STYPE. O07274 
= ~ a6 = 
WRTDAT= 000161 sen bat ie? tes 001114 s25 ip = T0308 ¢ 0074 
WRTHD = 000163 K 010156 F 001170 SSUPRS 011430 STYPEX 007512 
WRTRK  OO4004 DB2D 011524 S$LKCSB 1200 $svPc = 000200 $TYPOC 007540 
WRTRK1 OO4O60 ECVL 011704 SLKCSR 1176 $SWR = 123000 STYPON 00755 
WRTRKe OO04116 005204 KS 1206 S$TKB 001146 $TYPOS 007514 
WRT.AD O17464 TBL 010146 SLLVEC 901210 TKCNT 010166 $$GET4= 000000 
WRT.RP 017374 NDAD S174 SLPADR 1106 TKINT 010204 SOFILL 007737 
WRT.R1 O17460 SENDCT 005160 SLPERR 901110 TKQEN= 0102023 = 026036 
WRT.R2 017550 SEOP 005100 SLPVEC 001202 S$TKQIN 010170 
WRT.R3 017556 SEOPCT 005152 SMNEW  O11417 $TKQOU 010172 
WRT.R4Y 017562 SERFLG 001103 MSWR O11406 $TKQSR 010174 
WRT.RS 017564 SERMAX O0111S NULL O01154 TKS 001144 
. ABS. 026036 000 


ERRORS DETECTED: QO 


RMO3: CZRIBB,CZRIBB.SEQ/SOL/LI:ME/NL: MC: MD: CND=RMO3: RPO4YS6.011,CZRIBB.P11 
RUN-TIME: 22 14 .7 SECONDS 

RUN-TIME RATIO: 777737=20.7 

CORE USED: 36K (71 PAGES) 
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